{
    my $foo = 1;
    sub level : lvalue {$foo}
}

print level();
{
    local level() = 2;
    print level();
}
print level();
__END__
122

##</code><code>##

{
    my $foo = 1;
    sub level : lvalue {
        $foo;
    }
    ;
}
print level();
{
    level() = 2;
    print level();
}
print level();