use strict;

my $infile=shift;
my $outfile=shift;
open IN, "<:encoding(UTF-16LE)", $infile or die;
open OUT, ">:encoding(UTF-16LE)", $outfile or die;

binmode OUT, ':utf8';
while (<IN>) {
	chomp;
	print OUT "$_";
	#also tried:
	#print OUT "\x{0D}\x{0A}";
	my $r=pack("U", 0x000D); 
	my $n=pack("U", 0x000A); 
	print OUT $r;
	print OUT $n;
	#also tried:
	#my $n=chr(0x000D); etc.
	
}

close(IN);
close(OUT);