#! /usr/bin/perl -w
use strict;
use feature ":5.10";



while () {
	print "\nAuswahl: ";
	chomp( my $aw = <STDIN> );

	given ( $aw ) {
		when ( '' ) {
			print "Keine Eingabe\n";
		}
		when ( /[^\d*]/ ) {
			print "Ungültige Eingabe\n";
		}
               	when ( 0 ) { 
			print "0\n"; last
		}
               	when ( $_ > 0 and $_ < 11 ) { 
			print "1-10\n"; last
		}
		when ( $_ >= 11 and $_ < 21 ) {
			print "11-20\n"; last
		}
               	default { 
			print "Ungültige Eingabe\n";
         	}
	}
}