#! /usr/bin/perl
use warnings;
use strict;

use Time::Piece;

print 'Time::Piece'->VERSION, "\n";
my $t = 'Time::Piece'->strptime($ARGV[0], '%s');
print "Input  $ARGV[0]\n";
print "Output ", $t->epoch(), "\n";
print $t, "\n";
print $t->strftime('%a %b %d %T %Y'), "\n";