in reply to Clarifying code
use File::Spec::Functions; use File::stat; my $pretty_file_time = localtime stat(catfile $dir, $file)->mtime; [download]
Makeshifts last the longest.