sub maybeset {
             my($key, $value) = @_;
             $Foo{$key} = $value unless $Foo{$key};
    }
    
##</code><code>##

sub XXX {
   my ($self) = @_;

   $self->{age} = '17';
}