use File::stat;
my $mtime = stat($filename)->mtime;