Unicode::String->stringify_as( 'utf16' );
my $out16 = Unicode::String->new();
$out16->hex ( join '', @hexout);
print OUTFILE $out16;
close F || die;