##############################--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