Assuming for you, a number is a sequence of ASCII digits (untested):

my $num;
{
    print "Please type a number: ";
    chomp($num = <>);
    redo unless $num =~ /^[0-9]+$/;
}
[download]