open(FILE, "$file");
@lines = <FILE>;
$count=();
foreach $line (@lines){ $count+=length($line); }
print "\n$count";