{
   my $a;

   sub get_a { return $a }
  
   sub set_a { $a = shift }
}