SU
Есть SET NAMES, есть SET CHARACTER SET, но это просто sugar для 4-х системных переменных, управляющих кодировкой клиента, сервера, соединения и результата соответственно. Да, похоже, тут и DBI ломать не надо
Size: a a a
SU
AG
A
AK
AK
AK
AK
SU
AK
AK
P
ДЛ
my $pid_in = open(my $pin, "-|", $$prgs[0]) or die "Can't start in: $!";
$bytes = read ($pin, $data, $BLOCKSIZE);
SU
О
AK
P
P
AK
AK