sub new {
     my $class = shift;#Klasse wird übernommen
     my $self = {};#Anonymes Hash wird erzeugt
     bless $self, $class;#$self wird geblesst
     return $self;#$self wird zurückgegeben
}