$bin_ent->head->mime_attr('Content-type.x-unix-mode' => "0$mode");
$bin_ent->bodyhandle($self->new_body_for($bin_ent->head));
$bin_ent->bodyhandle->binmode(1) or die "$ME: can't set to binmode: $!";
my $io = $bin_ent->bodyhandle->open("w") or die "$ME: can't create: $!";
$io->print($bin_data) or die "$ME: can't print: $!";
$io->close or die "$ME: can't close: $!";