Select Code to Download

$ perl -wE'sub o { sub i { say "foo"; } } i();'
foo

$ perl -wE'sub o { my ($x) = @_; sub i { say $x; } i(); } o("abc"); o(
+"def");'
Variable "$x" will not stay shared at -e line 1.
abc
abc