Help for this page
sub outer { my $x = shift; ... return $x; } }
sub outer { my $x = shift; my $inner = sub { return $x }; }