use strict;
use warnings;
use DBI qw(:utils :sql_types);
use 5.016;
use Data::Dumper;
use Encode;

my $h = DBI->connect() or die $DBI::errstr;
$h->{RaiseError} = 1;

eval {
    $h->do(q/drop table chinese/);
};
$h->do(q/create table chinese (n varchar(30), d varchar(12))/);

my $str = "\x{20020}\x{24202}\x{31185}\x{23460}";
my $encoded = encode('UTF-8', $str);
foreach my $s (split(//, $encoded)) {
    print sprintf("%x,", ord($s));
}
say "";
say data_string_desc($str);

my $s = $h->prepare(q/insert into chinese values(?,?)/);
$s->execute($str, "111");

$s = $h->prepare(q/select cast(n as varbinary) from chinese/);
$s->execute;
my $r = $s->fetchall_arrayref;

foreach my $s (split(//, $r->[0][0])) {
    print sprintf("%x,", ord($s));
}
say "";
say data_string_desc($r->[0][0]);

my $d = decode('UTF-8', $r->[0][0]);
say data_string_desc($d);
print Dumper(\$d);

##</code><code>##

f0,a0,80,a0,f0,a4,88,82,f0,b1,86,85,f0,a3,91,a0,
UTF8 on, non-ASCII, 4 characters 16 bytes
f0,a0,80,a0,f0,a4,88,82,f0,b1,86,85,f0,a3,91,a0,
UTF8 off, non-ASCII, 16 characters 16 bytes
UTF8 on, non-ASCII, 4 characters 16 bytes
$VAR1 = \"\x{20020}\x{24202}\x{31185}\x{23460}";