localtime

($sec, $min, $hour, $mday, 
 $mon, $year, $wday, $yday, $isday) = localtime( time());
    
$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"; 

#
# in scalar context localtime returns a string
#
print scalar localtime;
# --> Tue Oct 25 08:45:10 2005