BEGIN {
   my $var = 0;
   sub bump_var {
     ++$var;
   }
   sub var {
     $var;
   }
}