sub ausgabe {
   my $self = shift;
   #my $knoten = undef;
   
    if (defined($self->{'linksweg'})) 
    {
    ausgabe($self->{'linksweg'});
    }
    print "$self->{'zahl'}";
    # print "$self->{'wurzel'}->{'zahl'}\n";

    if(defined($self->{'rechtsweg'})) 
    {
    ausgabe($self->{'rechtsweg'});
    }
}