$database_handle_of{ident $new_object} = DBI->connect( qq{DBI:mysql:database=$MYSQL_TABLE; host=$MYSQL_HOST; port=$MYSQL_PORT; }, $MYSQL_USER, $MYSQL_PASSWORD ) or croak $DBI::errstr; my $drh = DBI->install_driver("mysql"); $database_handle_of{ident $new_object}->do("SET NAMES 'utf8'");