view release on metacpan or  search on metacpan

t/02_timezone.pl  view on Meta::CPAN

        if ($^O eq 'MSWin32') {
            exec { $^X } map "\"$_\"", $^X, (map "-I$_", @INC), $0, @ARGV;
        }
    };
}

use Time::Local;
use POSIX::strftime::Compiler;

my $fmt = shift @ARGV || '%z';
my @t = @ARGV ? localtime timelocal(@ARGV) : localtime;

print POSIX::strftime::Compiler::strftime($fmt,@t);