##############################--Hier beginnt das Menue--##############################
sub menu{
                                                #Das Menue muss so aussehen ,damit es auf der Konsole richtig ausgegeben wird!
my $menu = <<HERE_MENU;

   Oeffnen      <1> $info <Hier ist die Hilfe deaktiviert>
   Beginnen     <2>
   Neues Archiv <3>
   Beenden      <4>
   Hilfe        <5> <Die Hilfe koennen sie jederzeit ueber "h" aufrufen!>
HERE_MENU


print "\n$menu\n";
print "Auswahl:";

chomp($choice = <>);
help($choice);


##############################--Die Switch-Konstruktion wertet die Eingabe aus--##############################

SWITCH: {
        $choice == 1 && do { readin();
                                                last SWITCH;};
        $choice == 2 && do { start();
                                                last SWITCH;};
    $choice == 3 && do { create();
                                                last SWITCH;};
    $choice == 4 && do { finish();
               
         last SWITCH;};
        $choice == 5 && do { help();
                                                last SWITCH;};
        $choice == $choice && do { print "Sie haben sich vertippt!Ihre Eingabe lautete $choice.\n\n\n";
                                                           menu();
                                            last SWITCH;};
        }
}

menu(); #durft das menu am Anfang auf