use File::stat;
my $stat_obj = stat $filename;
print $stat_obj->mtime;