open( my $outfh, '>:raw', $filename ) or die "$filename: $!\n";