Select Code to Download

    sub maybeset {
             my($key, $value) = @_;
             $Foo{$key} = $value unless $Foo{$key};
    }

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

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