#!/usr/local/bin/perl
while (<>){
	/(\d*)$/;
	
	$count++ ;
	$sum += $1;
}
$avg = int($sum/$count);
print "average size is $avg bytes \n";

