{
  my $foo;
  sub set_foo {
     $foo = shift;
  }
  sub get_foo {
     return $foo;
  }
}

##</code><code>##

sub make_accessor {
  my $foo;
  return sub {
     my $in = shift;
     if defined($in) {
        $foo = $in;
     }
     return $foo;
   }
}