#! /usr/bin/perl
use strict;
use feature qw(switch say);

while (1) {
        print $clear;
        print "\t\t\t Datanbank Verwaltung\n\n"; 
        print "Sie sind mit der Datenbank verbunden \n Was möchten Sie tun?";

        print "
                  1. Tabelle anzeigen  
                  2. Daten eintragen 
                  3. Daten ändern 
                  4. Daten löschen 
                  6. Neue Tabelle anlegen
                  7. Tabelle wechseln (test)
                  8. Datenbank wechseln (test)\n
                  9. Programm beenden.

        ";

        my $eingabe = <STDIN>;  #       // problem liegt hier?
#       chomp $eingabe;   #aktiviert und deaktiviert versucht
        print "$clear Datenbank: $db_name \nTabelle:";


## 1  Tabelle zeigen    #1 done                                 klappt nicht
        given ($eingabe) {
                        when(1)  {
                        print "Ihre eingabe: $eingabe";

                        print "\n";
                                 }
#Menü 2
#Menü 3
#Menü 4
#Menü 5
#Menü 6                                                                klappt!!
                when(6)  {
                        print "Neue Tabelle erstellen";
                        }
#Menü 7


                          }
}