http://netlog.jpn.org/r271-635/2008/10/perl_mysql_utf8_shiftjis.html


Perlで代入するときは、クライアント側で文字コードを指定しないとどれだけ文字コード合わせても化ける。

$dbh->do("set names sjis");


あと、UTF-8フラグを必ず立てること。

my $utf8_flag_on_chars = Encode::decode_utf8($utf8_flat_off_chars);