print $IN->header();

my $dir = 'C:/Inetpub/wwwroot/accreditation/domain.com/cgi-bin/data';

open DIR, $dir || die $!;

# read all but '.' and '..'
my @dir_contents = grep /[^.]/, readdir DIR;

closedir DIR;

foreach (@dir_contents) {

print "File: $_ <BR>";

}

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";

print $IN->header();

my $dir = 'C:/Inetpub/wwwroot/';

opendir DIR, $dir or die "Could not opendir $dir; Reason: $!";

my @files = grep !/^\.\.?$/ => readdir DIR;

closedir DIR;

foreach (@files) {

print "File: $_ <BR>";

}