view release on metacpan or  search on metacpan

t/120_tmzone.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Config;
use POSIX::strftime::GNU;
use POSIX qw(strftime);
use Time::Local;

if ($Config{d_setlocale}) {
    POSIX::setlocale(&POSIX::LC_TIME, 'C');
}

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

print strftime $fmt, @t;