Help for this page
while ( $number >= 0 )
while ($number >= 0) { ... print "Please enter a number or -1 to end: "; chomp($number = <>); }