# ex_04-3
# Learning Perl on Win32 Systems, Exercise 4.3

print "Enter a number (999 to quit): ";
chomp($n = <STDIN>);
while ($n != 999) {
  $sum += $n;
  print "Enter another number (999 to quit): ";
  chomp($n = <STDIN>);
}
print "the sum is $sum\n";