sub age
{
 my $self = shift;
 if (@_) # more parameters?
 {
   $self->{age} = shift;
 }
 return $self->{age};
}