use POSIX qw( tzset );

$ENV{TZ} = "America/Los_Angeles";
tzset();
print scalar localtime(time()), "\n";

$ENV{TZ} = 'America/New_York';
tzset();
print scalar localtime(time()), "\n";

##</code><code>##

Tue Jul 22 22:02:29 2008
Wed Jul 23 01:02:29 2008