#! /usr/local/bin/perl

while (<>) {
	$sum += $_;
	$n++;
} 
$mean = $sum / (1.0 * $n);

print "sum=$sum\n";
print "n=$n\n"; 
print "mean=$mean\n";