#
# eg2: total up numbers on stdin (one per line)
#

while( my $line = <STDIN> ) # for each line from stdin
{
        chomp $line;
        # now process $line
}
