{
    local $\ = "\n";
    print scalar localtime;
    {
        local $ENV{TZ} = 'GMT';
        print scalar localtime;
    }
    print scalar localtime, ", which is wrong.";
}

##</code><code>##

Thu May 30 23:19:56 2002
Thu May 30 21:19:56 2002
Thu May 30 21:19:56 2002, which is wrong.