Select Code to Download

#!perl
use strict;
...
$closure->($_, $_+1) for (1..4);

print "And my X is $x\n";

my $closure = sub {
  my ($x, $y) = @_;
  print "Got $x and $y\n";
};