sub pretty_time
{
  my ($file) = @_;
  die "pretty_time: can't find $file\n"
    unless -e $file;

  my $time = (stat($file))[9];
  return scalar localtime $time;
}

...

my $pretty_file_time = &pretty_time(join('/', $dir, $file));