package Foo;
our $level = 1;
sub level :lvalue {$Foo::level}

package main;
print $Foo::level;
{
    local $Foo::level; # scalar localized...
    Foo->level = 2;    # ...works on localized scalar
    print $Foo::level;
}
print $Foo::level;
__END__
121