Select Code to Download

{
    print "Enter a number 0-9\n";
...
        redo;  
    }
}

GET_NUMBER:{
    print "Enter a number 0-9\n";
...
        redo GET_NUMBER;  
    }
}

my $number;  

...
            }
        } 
}