#!/usr/bin/perl 

use Encode qw(encode );

sub d {
    ($n, $c) = @_;
    $l = length($c);
    $i = 0;
    printf "%8s: ", $n;
    while ( $i < $l ) {
        $ch = vec($c, $i, 8);
        printf "%02x",  $ch;
        $i++;
        print ' ' unless $i & 1;
    }
    print "\n";
}

$utf16 = encode("UTF-16", "\x{6211}\x{7684}");
d('utf16', $utf16);