use strict;
use warnings;
use Time::Piece;

my $e = time();
my $t = Time::Piece->new($e);
print Time::Piece->VERSION, "\n";

print "Input $e\n";
print "Output ".$t->epoch(), "\n";
print $t, "\n";
print $t->strftime, "\n";