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