c:\>set TZ=GMT1GMT

c:\>perl -le"print ~~localtime;" & time /t
Tue Sep 14 17:44:24 2004
18:44

c:\>set TZ=GMT-1GMT

c:\>perl -le"print ~~localtime;" & time /t
Tue Sep 14 19:44:34 2004
18:44