use strict;
use warnings;
use Time::Piece;
my $t = Time::Piece->new();
print Time::Piece->VERSION, "\n";
$t = $t->strptime( $ARGV[0], '%s' );
print "Input $ARGV[0]\n";
print "Output ".$t->epoch(), "\n";
print $t, "\n";
print $t->strftime, "\n";

##</code><code>##

1.30
Input  1415998800
Output 1415988000
Fri Nov 14 21:00:00 2014
Fri, 14 Nov 2014 21:00:00 MSK