$a = 2; sub f { print $a; } { local $a = 5; f; }'