#! /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";
                }
        }
}