use DateTime qw( );
use DateTime::Format::Epoch qw( );
my $epoch = DateTime->new( year => 1970, month => 1, day => 1 );
my $formatter = DateTime::Format::Epoch->new( epoch => $epoch );
my $dt = $formatter->parse_datetime( 3700771200 );
print( $dt->strftime( '%x %X' ), "\n" ); # Apr 10, 2087 12:00:00 AM
Update: Better yet:
use DateTime::Format::Epoch::Unix qw( );
my $dt = DateTime::Format::Epoch::Unix->parse_datetime( 3700771200 );
print( $dt->strftime( '%x %X' ), "\n" ); # Apr 10, 2087 12:00:00 AM
|