while (<>) {
  if (/^\d+$/) {
    $total += $_;
    $count += 1;
  } else {
    die "Input line $. walformed; noninteger.\n";
  }
}
$average = $total / $count;
print "The average is $average.\n";