Mega Code Archive

 

Categories / Perl / Subroutine

 

Nested subroutine

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