Select Code to Download

{
    my $foo = 1;
...
}
print level();
__END__

Can't localize lexical variable $foo at __FILE__ line __LINE__.

{
    local *foo = sub : lvalue { print "wuff: $foo\n"; $foo };
}

$\ = "\n";
$foo = 3;
...
4: 2.5
5: 3.125
6: 3

local foo() = 2;

Useless localizing of a subroutine return value