my $dir = "c:/temp/";
opendir (DIR, $dir) or die "Unable to open dir $dir : $!";
my @files = readdir(DIR) or die "Unable to readdir $dir : $!";
closedir DIR;
print "@files <br>";