change encoding and insert mysql

#/usr/bin/perl

use Encode;
use DBI;
$username="繁體中文網頁";
#$username=decode("gb2312",$username);

$result=encode("big5",decode("utf8",$username));
print $username."\n";
print $result."\n";
 my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","root","",{ RaiseError => 1, AutoCommit => 0 });
 $sth = $dbh->prepare(qq/insert into seven VALUES (?,?,?)/);

 $sth->execute( "3", $result, 23 );

$dbh->disconnect();