perl 操作mysql 乱码

梦幻孤光

使用perl脚本 插入数据库，一部分数据是从另外个表中select出的数据，有一部分是直接写入的汉字，在数据库和使用该数据库的php页面当中，直接写入的汉字能正常显示，从另外个表select出来的就是显示乱码。
部分代码：
my $sqr = $db->prepare("select title,link from movie_detail order by link limit 10");
$sqr->execute();

while(my $ref=$sqr->fetchrow_hashref())
{
    $title= $ref->{'title'};

    $db->do("INSERT INTO `movie`.`addonmovie` (`aid` ,`typeid` ,`title`,`language`)VALUES ('$aid',  '3', '$title', '汉语')") or die "Insert into table addonmovie wrong $!";

}

其中“汉语”这两个字完全没问题，title就显示为乱码。另外mysql方面能改的都试过了，gbk，utf8都试过 一直乱码。
在perl脚本里面加上“use utf8”后，所有汉字全部乱码了。
不知道这个是不是perl脚本里面的问题还是其他问题， 求教了 ，谢谢

梦幻孤光

SET character_set_client
SET character_set_connection
SET character_set_results
这些都试过了

兰花仙子

set names ...

梦幻孤光

回复速度真快
吃饭去  回来试试