Help for this page
Select Code to Download
Select
or
download this
while($x=<STDIN> and $x !~ /^\s*\d+\s*$/) { print "Enter a number\n" }