$dbh->do(q(
    create table cc(
        c varchar(1) charset utf8mb4 collate utf8mb4_hungarian_ci
    )default charset utf8mb4
));
$dbh->do("set names utf8mb4 collate utf8mb4_hungarian_ci");
$dbh->{mysql_enable_utf8mb4} = 1;
$dbh->do("insert into cc(c)values(?)",{}, pack "U", 0x10CE2);
print Dumper $dbh->selectrow_hashref("select hex(c),c,upper(c) from cc");
#print Dumper $dbh->selectall_arrayref("show variables like 'character_set%'",{Slice=>{}});
$dbh->do('drop table cc');

$VAR1 = {
          'c' => "\x{10ce2}",
          'hex(c)' => 'F090B3A2',
          'upper(c)' => "\x{10ce2}"
        };