
while (<>) {
  $total += $_;
}

print "The total is $total.\n";



