BEGIN {
  my $var;
  sub foo {
    return ++$var;
  }
}