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