Use the three argument open and set the the files' layer to raw

binmode STDIN, ':raw';

my $output_file = shift @ARGV;
open my $out_fh, '>:raw', $output_file or die "could not open $output_
+file: $!\n";

while( my $line = <STDIN> ){
    print {$out_fh} $line or die "could not print to $output_file: $!\
+n";
}

close $out_fh or die "could not close $output_file: $!\n";
[download]