Perl连接DBI进行update

#!/usr/bin/perl

#author: zhengsenlin
#date: 2013-03-28
#desc: perl conn mysql

use 5.012;
use strict;
use warnings;
use autodie;

#load module
use DBI;

#mysql config
my $mhost = 'localhost';
my $muser = 'zheng';
my $mpass = '123456';
my $mport = 3306;
my $mdatabase = 'ffff';

#connect mysql
my $dbh = DBI->connect("DBI:mysql:database=$mdatabase;host=$mhost;port=$mport", $muser, $mpass, {'RaiseError' => 1});
my $name1 = "zheng_s1";
my $hhh = "abacc.zheng.com";
my $rows_affected = $dbh->do("UPDATE servers SET server=\"$hhh\" where name=\"$name1\"");

#disconnect mysql
$dbh->disconnect();