Select Code to Download

sub makecounter {
  my $count = 0;
...
}

print $counter2->(), "\n";

{ # create a scope for the closure
  my $count = 0;
...
for (1 .. 5) {
  print counter, "\n";
}