Select Code to Download

sub newprint {
    my $x = shift;
    return sub { my $y = shift; print "$x, $y\n"; };
...

&$h("world");
&$g("earthlings");

sub make_closures {
    my $j = 0;
    my @closures;
...
foreach my $sub (&make_closures) {
    &$sub;
}

7
7
7
7
7
7