$/=\10;
open(F, "foo.txt") || die;
$rec=<F>;
print length $rec, "\n";
close(F);