Help for this page
open(my $fh, '>', file); binmode($fh); print $fh ...
require v5.8.0; open($fh, '>:raw', file); print $fh ...
binmode(STDOUT); print ...