perl的shared问题

我定义了一个变量，
my $dbh:shared;

在主线程中，
$dbh = connect_db();

其中，connect_db是一个连接数据库的操作，定义如下
sub connect_db{
  my $dbh_temp = DBI->connect($con_str, $db_user, $db_password, {RaiseError => 0, PrintError => 0})
or die "[ERROR]:Connect \"$db_name\" failed!",DBI->errstr,"\n";
  return $dbh_temp;
}

错误提示说：Invalid value for shared scalar

我查了一下资料，说引用不能共享，但是该怎么修改呢？请高手解答

http://bbs.unixbeta.com/viewthread.php?tid=83190
刚才查到一个说明，有点心凉。不过还是请大家帮帮忙。