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
}