my $mtime = stat($filename)->mtime;