sub { #!/usr/bin/perl use CGI; my $page = new CGI; print $page->header(); print ""; print $page; print "
"; test(); print ""; sub test{ print $page; } } ##

##

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

##

##

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