c:\> SET TZ=EST4
C:\> perl -e"print scalar localtime()"