#!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__

=encoding utf-8

=head1 SYNOPSIS

  from_unixtme <unix time>

=cut