use File::stat;

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

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