#!/usr/bin/perl

use Time::Zone;

die "Usage tz_test <time zone>\n\n" if (!$ARGV[0]);

$zone = $ARGV[0];
$offset = tz_offset($zone);
$tzname = uc(tz_name($offset));

print "timezone given is $zone, tz_name returns $tzname, offset is $offset\n";

($ss, $mm, $hh, $day, $month, $year, $wday, $mday) = gmtime( time + $offset);

print "$hh:$mm:$ss $tzname\n";