my $dir='h:\test';
opendir(DIR, $dir) || die "Unable to open directory: $!";
my @file_names = grep {-f $_} map "$dir\\$_",readdir(DIR);
closedir(DIR);