{
  my $var = 0;
  sub getvar { $var++ }
}