#!/usr/bin/perl -w

use strict;
use POSIX;

my ($std, $dst) = POSIX::tzname();

print "std: $std\n";
print "dst: $dst\n";
print "TZ: " . ($ENV{TZ} || "Unset") . "\n";