while <FILE> {
   $total += $_;
   $count++;
}
my $average = $total/$count;