###################################################################
HauptMenu: 
###################################################################

system("clear");
print "+-----------------------------------------------------+ \n";
print "| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | \n";
print "+-----------------------------------------------------+ \n";
print " \n";
print ">> Hauptmenü << \n";
print " \n";
print "+-----------------------------------------------------+ \n";
print "| [1]  Kunden anlegen...                              | \n";
print "|                                                     | \n";
print "| [2]  Kunden suchen...                               | \n";
print "|                                                     | \n";
print "| [3]  Kunden editieren...                            | \n";
print "|                                                     | \n";
print "| [4]  Kurzgeschichte anlegen...                      | \n";
print "|                                                     | \n";
print "| [5]  Kurzgeschichte suchen...                       | \n";
print "|                                                     | \n";
print "| [6]  Kurzgeschichte editieren...                    | \n";
print "|                                                     | \n";
print "| [7]  Buchungsstatus abfragen...                     | \n";
print "|                                                     | \n";
print "| [8]  Statistik aufrufen...                          | \n";
print "|                                                     | \n";
print "| [9]  Datenbank sichern...                           | \n";
print "|                                                     | \n";
print "| [10] Hilfe anzeigen...                              | \n";
print "|-----------------------------------------------------| \n";
print "| [0] Programm beenden...                             | \n";
print "+-----------------------------------------------------+ \n";
print " \n";
print "Bitte Aufgabe wählen [x]:";
my $decider;
$decider = <STDIN>;
chop($decider);
if ($decider eq "1") {goto KundenAnlegen;}
if ($decider eq "2") {goto KundenSuchen;}
if ($decider eq "3") {goto KundenEditieren;}
if ($decider eq "4") {goto KurzgeschichteAnlegen;}
if ($decider eq "5") {goto KurzgeschichteSuchen;}
if ($decider eq "6") {goto KurzgeschichteEditieren;}
if ($decider eq "7") {goto BuchungsstatusAbfragen;}
if ($decider eq "8") {goto StatistikAufrufen;}
if ($decider eq "9") {goto DatenbankSichern;}
if ($decider eq "10") {goto HilfeAnzeigen;}
if ($decider eq "0") {goto ProgrammBeenden;}
goto HauptMenu;