#!/usr/bin/perl
use strict;
use warnings;

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

package main;
print $Foo::level;
{
    local Foo->level = 2;    # Doesn't localize.
    # local $Foo::level = 2; # Does localize.
    print $Foo::level;
}
print $Foo::level;

#Expected: 121
#Result:   122