use strict;
open OUTFILE, ">binfile";
binmode OUTFILE;

open INFILE, "<CrLf";
my @lines = <INFILE>;
close INFILE;
chomp @lines;

foreach (@lines) {
   print OUTFILE $_,"\n";
}

close OUTFILE;