Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Nested subroutine
sub outer
{
    my $s = "Inside the inner subroutine.\n";
    sub inner
    {
        my $s2 = $s;
        print $s2;
    }
    inner();
}
outer();