Select Code to Download

#!perl
use strict;
...
  print $closure->($_), "\n";
}
print "And my X is $x\n";

#!perl
use strict;
...
for (1..4) {
  print $closure->($_), "\n";
}