use POSIX qw(tzset);
use strict;
                                                                                
print scalar localtime();
                                                                                
sub localtime_in
{
   local $ENV{TZ} = 'EST';
                                                                                
   tzset();
                                                                                
   localtime();
}
                                                                                
print scalar localtime_in();
print scalar localtime();