$txt_ent->bodyhandle($self->new_body_for($txt_ent->head));
$txt_ent->bodyhandle->binmode(1) or die "$ME: can't set to binmode: $!";
my $io = $txt_ent->bodyhandle->open("w") or die "$ME: can't create: $!";