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