my $age;
INPUT: {
    print "Please enter your age: ";
    $age = <STDIN>;
    if ( $age !~ /\D/ ) {
        last INPUT;
    }
    redo INPUT;
}