my $person=Person->new(Alter=>25, Name=>'Peter', Groesse=>172);
print $person->Alter();