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

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