hile($input ne '3'){
	print "Aktion: ";
	$input = <STDIN>;
	chomp($input);
	switch ($input){
		case '1'{ ....CODE.... }
                case '2'{ ....CODE.... }
                case '3'{
			exit(0); #Programm beenden... 
		}