while (<>) {
  $total += $_;
  $count += 1;
}
$average = $total / $count;
print "The average is $average.\n";