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