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

##</code><code>##

my $foo = sub { 2 * shift };