@weekday = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");

​

$retval = time();

​

print "Return time is $retval\n";

$local_time = gmtime( $retval);

​

print "Local time = $local_time\n";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);

$year = $year + 1900;

$mon += 1;

print "Formated time = $mday/$mon/$year $hour:$min:$sec $weekday[$wday]\n";

​