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

##</code><code>##

print scalar localtime(time - 4 * 60 * 60), "\n";