#!/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} ) );


##</code><code>##

WARNING: [printf] Object must contain a valid date
Missing argument in printf at /tmp/time.pl line 8.
1349541878:Sun Oct  7 02:14:38 2012:
1362112603:Fri Mar  1 14:06:43 2013:2013-03-01 14:06:43