my $input;

do {
    print "Please enter a number in the range 1 .. 10: ";
    chomp( $input = <STDIN> );
} until ( $input !~ /\D/ ) and ( $input >= 1 ) and ( $input <= 10 );