perl 连接DBI insert

#!/usr/bin/perl

#author: zhengsenlin
#date: 2013-05-30
#desc: perl conn mysql insert

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

#load module
use DBI;

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

#connect mysql
my $dbh = DBI->connect("DBI:mysql:database=$mdatabase;host=$mhost;port=$mport", $muser, $mpass, {'RaiseError' => 1});

my $rows = $dbh->do("INSERT INTO author(name) VALUES ('linxx')");
$rows = $dbh->do("INSERT INTO book(title,author) VALUES ('linux001', 'linxx')");

$rows = $dbh->do("INSERT INTO author(name) VALUES ('linxxx')");
$rows = $dbh->do("INSERT INTO book(title,author) VALUES ('linux002', 'linxfdsfx')");

#disconnect mysql
$dbh->disconnect()