Help for this page
$ 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