use strict;
use warnings;

print scalar(localtime),"\n";
{
   local $ENV{'TZ'} = 'GMT';
   print scalar(localtime),"\n";

   local $ENV{'TZ'} = 'EST5EDT';
   print scalar(localtime),"\n";

}
print scalar(localtime),"\n";