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