Hi

use File::stat;
opendir(DIR, "t:\\") or die "can't opendir $dirname: $!";

@files = readdir(DIR);
closedir(DIR);

foreach $file (@files) {
   print "$file\n";
   $statusFile=stat(<path\to\file\filename>);
   print $statusFile->mtime; ##Modification time
}
[download]

For more details look at File::stat in CPAN