-rw-r--r--   1 jeffp    dialup      1233 Jul 30 18:30 resume.txt

##</code><code>##

use POSIX 'strftime';

my ($perm, $links, $uid, $gid, $size, $lmod) =
  (stat $file)[2,3,4,5,7,9]
my $user = getpwuid($uid);
my $group = getgrgid($gid);
my $date = strftime("%b %e %R", localtime($lmod));