mysql utf8 中文

#!/usr/bin/perl
use DBI;
use Encode;
$user="root";
$passwd="1234567";
$dbh="192.168.32.232";
my $table=<STDIN>;
chomp  $table;
print "\$table is $table\n";

my $table=encode("utf8",decode("gbk","$table"));
print "\$table is $table\n";
$dbh = DBI->connect("dbi:mysql:database=zjzc;host=192.168.32.232;port=3306",$user,$passwd) or die "can't connect to  database ". DBI-errstr;
$dbh->do("SET NAMES utf8");
##my $hostSql = qq{select script  from publish_info where env='$env' and info='$app' and ip='$ip'};
my $sql=qq{select sn,name,productType from  zjzc.Product  where name like '%$table%'};
print "\$sql is $sql\n";
$sth=$dbh->prepare($sql);
$sth->execute;
while (@recs=$sth->fetchrow_array) {
foreach (@recs)
       {print encode("gbk",decode("utf8","$_"))}
       print "\n";
       }
	 $dbh->disconnect;