In a similar vein, you can use File::stat's by-name interface to the built-in stat...

use File::stat;
my $prettyFileTime = localtime stat("$dir/$file")->mtime;
[download]

    --k.

Update: D'oh...beaten to the punch...