#!/usr/bin/perl -w
print "Enter a list of numbers to sum (999 to stop) : \n";
until(($in = <STDIN>) == 999)
{
   $total += $in;
}
print "The total is : $total\n";