UNIX time から日付を求める

Perl localtime timelocal UNIX 
use strict;
use warnings;

#http://www.rfs.jp/sb/perl/05/localtime.html

my $unix_time = 1236729600;

my($sec ,$min ,$hour ,$mday ,$mon ,$year ,$wday ,$yday ,$isdst) = localtime($unix_time);
$year += 1900;
$mon++;

print sprintf('%04s-%02s-%02s %02s:%02s:%02s' ,$year ,$mon, $mday ,$hour ,$min ,$sec);

__END__
#http://colabv6.dan.co.jp/lleval.html
#http://blog.livedoor.jp/dankogai/archives/51186815.html

mimic28号でした。