Help for this page
while ( (print "$prompt: "), $number = <STDIN> ) {...}
print "$prompt"; $number = <STDIN>;