while($input ne '3'){
	print "Aktion: ";
	$input = <STDIN>;
	chomp($input);
	switch ($input){
		case '1'{
			Code.... 
}