Select Code to Download

print"Enter the starting amount: ";
while( $startAmount !~ /^\d+/ ) {
...
        last;
    }
}

print"Enter the starting amount: ";
{
...
    # this line is reached if $startAmount is a number
    print "ok, \$startAmount is $startAmount\n";
}