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";