use File::stat;

my $path = '/to/my/directory';

opendir(DIR, $path) or die("Cannot open directory"); 
my @files= readdir(DIR); 
closedir DIR;

foreach my $file (@files) {
my $mod = (stat("$path/$file"))[9];
print "Filename $file has the mod date of $mod \n";
}