use Devel::Peek;
my $dbh = DBI->connect($dsn, ..., { mysql_enable_utf8 => 0 });
my $sth = $dbh->prepare("SELECT a from utf8test");
$sth->execute;
my ($test) = $sth->fetchrow_array;
say length $test;
Dump $test;