use File::Spec::Functions;
use File::stat;

my $pretty_file_time = localtime stat(catfile $dir, $file)->mtime;