PerlのDBIでMySQLにShift JISの日本語のデータを挿入する。

DBIでプレースホルダを使用して、Shift JISの日本語でかつ文字コードが0x5cで終わるデータをinsertするとエラーになってしまう。

use DBI;

my $dbh = DBI->connect('DBI:Mysql:test', 'testuser', 'testpwd');

$dbh.do("insert into table ( name ) values(?)",undef,'表')|| die $dbh->errstr;

本当はhttp://www.klab.jp/media/mysql/index6.htmlにあるようにmysql_set_character_set()が使えればいいのですが、比較的最近、追加されたAPIなので使えないパターンがあると思います。
ネットで探しても、Shift JISを使うなの一点張りですが、それ派、私にではなく、Docomoに言ってくれと思います。
そこで、MySQLはHEX文字で記述された文字コードをUNHEXという関数で文字に直すということができるため、UNHEXを使うようにしたところ、問題が起きなくなりました。　下記がそのコードです。

sub _to_hex_str{

  my( $str ) = @_;

  my @codes = unpack("C*",$str);

  my $code_format;

  my $code_str;

  foreach my $code (@codes){

    $code_format .= "%x"

  }

  $code_str = sprintf $code_format,@codes;

  return $code_str;

}

my $dbh = DBI->connect('DBI:Mysql:test', 'testuser', 'testpwd');

$dbh.do("insert into table ( name ) values(UNHEX('" . _to_hex_str($name) . "'))")|| die $dbh->errstr;

ネットで見かけなかった解決方法なので何か不都合があるかもしれません。
もし、問題がありそうだったら、教えてください。