#!/usr/bin/perl
use strict;
my $time = time();
print "Localtime is [".localtime($time)."[ when \$ENV{TZ} is [$ENV{TZ}] based on time [$time]\n";
$ENV{TZ} = 'GMT';
print "Localtime is now [".localtime($time)."] when \$ENV{TZ} is [$ENV{TZ}[ based on time [$time]\n";