my $directory = 'c:\windows';

opendir(DIR,$directory);
my @files = readdir(DIR);
closedir(DIR);
foreach(@files){
  print $_,"\n";
}