Select Code to Download

#!/usr/bin/perl -wl
sub gen_counter {
...
5
9
10

#!/usr/bin/perl -wl
sub gen_counter {
...
$counter->(8);
print $counter->();
print $counter->();

sub gen_closure {
    my ($a, $b, $c) = @_;
...
        # Do the normal closure action on $a, $b and $c here
     }
}