open(F,$filename) || die "Could not open file '$filename' : $!\n";
while (<F>) {
    $size += length($_);
}
close(F);