BEGIN {
   my $var;
   sub set_var {
     $var = shift;
   }
   sub var {
     $var;
   }
}

##</code><code>##

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