perl -e '$ENV{TZ} = "EST";print scalar localtime(), "\n";$ENV{TZ} 
= "DST";print scalar localtime(), "\n";'