Select Code to Download

sub print_more;   # declare a proto
my $more = 20;    # twenty lines then stop
...
        }
    }
}