package Person;
sub new
{
  my $class=shift;
  my %opts=@_;
  my $self={};
  $self->{$_}=$opts{$_} for( qw(Alter Name Größe) )
}

sub _attr
{
  my $self=shift;
  my $attr=shift;
  $self->{$attr}=shift if(@_);
  return $self->{$attr};
}

sub Alter{ shift->_attr('Alter',@_) }
sub Name{ shift->_attr('Name',@_) }
sub Groesse{ shift->_attr('Groesse',@_) }