#!/usr/bin/perl

use baum;
use strict;

my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);
my @HinzufuegenListe = ();
my @ NeuListe = ();
my @ erstellebaum = undef;

############################
#Eingabe der ersten 10 Zahlen / Liste 1
############################
    
sub BaumNeu 
   for(0..9){
            print "Bitte geben Sie eine Zahlen ein: ";
            my $eingabe = <STDIN>;
            if ( $eingabe == /^\D*$/[){
               
 print "Ungültige Eingabe, bitte geben sie nur Za              &nbs
p; hlen ein \n"
               chomp($eingabe);
            push @liste1,$eingabe;
    }
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";

    $erstellebaum =baum->Neu(@NeuListe);


sub Hinzufuegen {
    my $zzahl = @_; }
    $erstellebaum =baum->hinzufuegen(@NeueListe);


sub Ausgabe {}
    $erstellebaum = baum->ausgabe (@HinzufuegenListe);