{
my $seentext;
sub logit {
    my($line) = @_;
    $line=~s/\0//g;
    $line=~/\S/ and $seentext = 1;
    print OUTF $line;
}
}