—

              
#!perl
use strict;
use warnings;
use Pod::Usage;
use Time::Format::MySQL qw(from_unixtime);
eval {
    print from_unixtime(@ARGV), "\n";
};
if ($@) {
    warn $@;
    pod2usage;
}
__END__
HideShow 8 lines of Pod
=encoding utf-8
=head1 SYNOPSIS
  from_unixtme <unix time>
=cut