perl unload mysql utf-8字符集 需要设置$dbh->do("SET NAMES utf8");

$dbh->do("SET NAMES utf8");