Select Code to Download

sub foo {
    local $a = 10;
...
    print "A: $a\n"; # Just fine
    print "B: $b\n"; # Warning from -w
}