Select Code to Download

BEGIN {
  my $current = 0;
  sub gimme_next {  ++$current  }
}

my $foo = sub { 2 * shift };