open my $fh, '>', 'tmp.txt';
binmode $fh, ':encoding(UTF16)';
print $fh qq(\N{U+010A}\n);
close $fh;