$ perl -e'print scalar(localtime),$/; local $ENV{TZ} = "EST"; print scalar(localtime),$/;'
Tue May  9 22:38:06 2006
Tue May  9 21:38:06 2006
$