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


                     	  }
}