清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

#!\usr\bin\perl
use warnings;
use strict;
use DBI;
my ($dbh, $rows);
$dbh=DBI->connect('dbi:mysql:test','root','password') || 
    die "Error opening database: $DBI::errstr\n";
$rows=$dbh->do("INSERT INTO checkin VALUES ('John', 'Smith', 'Glasgow')")|| 
    die "Couldn't insert record : $DBI::errstr";
print "$rows row(s) added to checkin\n";
$dbh->disconnect || die "Failed to disconnect\n";