#!/usr/bin/perl
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=stat("/tmp/foo.txt");

print localtime($atime) . "\n";