#! /usr/bin/perl
use warnings;
use strict;

open my $IN,  '<:raw:crlf', shift or die $!;
open my $OUT, '>:raw',      shift or die $!;
print {$OUT} $_ while <$IN>;