F:\>perl -e "print scalar localtime"
Thu Sep  9 08:18:24 2004
F:\>set TZ=MST
 
F:\>perl -e "print scalar localtime"
Thu Sep  9 14:19:25 2004