syswrite $self->{file}, $tf, length($tf) - (BLOCK * 2);