stat, localtime

This example finds the last access time of a file and converts it into a readable format:

($dev, $ino, $mode, $nlink, $uid, $gid, 
 $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat $filename;

($sec, $min, $hour, $mday, 
 $mon, $year, $wday, $yday, $isday) = localtime $atime; 
    
$year += 1900;
$mon = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec)[$mon]; 

print "The last access time of $filename is $mday.$mon.$year $hour:$min\n";