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";