my $directory = 'C:/directory/dir/';
opendir(DIR,$directory);
my @files = readdir(DIR);
closedir(DIR);
foreach(@files){
  print $_,"\n";