open(my $fh, '>', file);
binmode($fh);
print $fh ...

##</code><code>##

require v5.8.0;
open($fh, '>:raw', file);
print $fh ...

##</code><code>##

binmode(STDOUT);
print ...