print "Numbers only please" until <STDIN> =~ /^(\d+)$/;
return $1;