perl连接mysql数据库

#!/usr/bin/perl
use DBI;
$db = DBI->connect('DBI:mysql:sword;user=root;password=test');
$sth=$db->prepare("select * from Account") or die "Can't prepare sql statement" . DBI->errstr;
$sth->execute();
print qq(\n\tContents of "coaches" table\n);
$sth->dump_results();
$sth->finish();
$dbh->disconnect();