nested subroutine
sub outer { my $s = "Inside the inner subroutine.\n"; sub inner { my $s2 = $s; print $s2; } inner(); } outer();