open my $fh, ">:raw", $name or die "$0: open $name: $!";