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