{
   my $val;
   sub set_value {
      $val = shift;
   }
   sub get_val {
      return $val;
   }
}