$^W = 1;
use Time::Local;
print "Perl:       $]\n";
print "VERSION:    $Time::Local::VERSION\n";
my $time = '1111461913';
print "Epoch time: $time\n";
print "ctime time: ",scalar(localtime($time)),"\n";
print " localtime: ",join(", ",localtime($time)),"\n";
print " timelocal: ",timelocal(localtime($time)),"\n";