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));