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