#!/usr/bin/perl use strict; use Date::Manip; Date_Init("TZ=+0930"); my $localtime = "1349541878"; printf("%s:%s:%s\n", $localtime, scalar localtime( $localtime ), UnixDate( scalar localtime( $localtime ), qq{%Y-%m-%d %H:%M:%S} ) ); $localtime = "1362112603"; printf("%s:%s:%s\n", $localtime, scalar localtime( $localtime ), UnixDate( scalar localtime( $localtime ), qq{%Y-%m-%d %H:%M:%S} ) );