{
  my $foo;

  sub up {
    unless (defined)($foo)) {
      $foo = 1;
    }
    $foo++;
  }

  sub get {
    $foo;
  }
}