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