Select Code to Download

sub {

...
}

}

sub named_or_anon {
   my $x;
...
      ... $x ...
   }
}

$ perl -we'
    sub named_or_anon {
...
    }
'
Variable "$x" will not stay shared at -e line 6.