Select Code to Download

    $code_point=0x3042;#HIRAGANA LETTER A
    $unicode_string=pack('U*', $code_point);
...
    $unicode_string=pack('U*', $code_point);
    @bytes=map{ sprintf("%X",$_) } unpack("W*", Encode::encode('utf8',
+$unicode_string));
    print join('|', @bytes), "\n";

# this is wrong
@bytes=unpack("C*", $unicode_string); 

# this is right
@byets= unpack("C*", Encode::encode('utf8',$unicode_string));