# do it with stat
my $atime = (stat($ARGV[0]))[8];
print "stat says: ", scalar localtime $atime, "\n";

# do it with -A
$atime = $^T - (-A $ARGV[0]) * 86400;
print "-A says:   ", scalar localtime $atime, "\n";