#! perl -slw
use strict;

print "default:" . localtime();

$ENV{TZ} = 'GST1GDT';
print `perl -le"print 'Germany: ' . localtime()"`;

$ENV{TZ} = 'PST8PDT';
print `perl -le"print 'Pacific: ' . localtime()"`;
__END__
P:\test>524251-2
default:Thu Jan 19 20:41:24 2006
Germany: Thu Jan 19 19:41:24 2006

Pacific: Thu Jan 19 12:41:24 2006