use POSIX qw( tzset );

print localtime(time) . " in $ENV{TZ}\n";

$ENV{TZ} = 'GMT-8';
tzset();

print localtime(time) . " in $ENV{TZ}\n";