open my $out, '>:raw', $file or die "$file: $!";