#!perl
use strict;
use warnings;
my $files_dir = 'C:\Dwimperl\Perl\1993';
opendir (my $dir_handle, $files_dir);
while (my $filename = readdir($dir_handle)){
  next unless -f $files_dir.'/'.$filename;
  print "$filename\n";
}