use POSIX;

print scalar(localtime),"\n";
{
   local $ENV{'TZ'} = 'AST4ADT';
   POSIX::tzset;
   print scalar(localtime),"\n";
}
POSIX::tzset;
print scalar(localtime),"\n";