{
    print "Give me a number:";
    $num = <STDIN>;
    if ($num < 1 or $num > 10) {
        print "try again\n";
        redo;
    }
}
print "OK\n";