use strict;
open OUTFILE, ">binfile";
binmode OUTFILE;
print OUTFILE "1\n2\n3\n4\n";
close OUTFILE;

##</code><code>##

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

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

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

close OUTFILE;