print scalar localtime(), "\n";
$ENV{TZ}="Europe/London";
print scalar localtime(), "\n";

##</code><code>##

Fri Sep 13 13:51:50 2002
Fri Sep 13 12:51:50 2002