open( my $ifh, "<:utf8", $iname) or die "$iname: $!";
open( my $ofh, ">:encoding(UTF-16LE)", $oname ) or die "$oname: $!";

print $ofh while (<$ifh>);