BEGIN {
    my $var = 10;
    sub next {
      return ++$var;
    }
  }