Select Code to Download

>perl -c -we"sub outer { my $x; sub inner { $x } inner() }"
Variable "$x" will not stay shared at -e line 1.
...

>perl -c -we"sub outer { my $x; local *inner = sub { $x }; inner() }"
-e syntax OK

sub outer {
  ...
...
  };
  ...
}