Select Code to Download

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

$a = 2; sub f { print $a; } for $a (5) { f; }