use POSIX qw( tzset )

sub localtime_in { local $ENV{TZ} = shift; tzset; localtime }

$localtime_in_EST = localtime_in( "EST" );