use File::stat;
stat($file)->mtime;