my $inttime = time;
my @local_tm = localtime($inttime);
my @gmt_tm = gmtime($inttime);
my $tz = $ENV{TZ};

print @local_tm[2],":",@local_tm[1],":",@local_tm[0]," ",$tz,"\n";
$tz = "EST5";
$ENV{TZ} = $tz;
@local_tm = localtime($inttime);
print @local_tm[2],":",@local_tm[1],":",@local_tm[0]," ",$tz,"\n";

##</code><code>##

11:5:40 EST5EDT
10:5:40 EST5