1、查看系统上是否已经安装好了DBI,perl -e "use DBI",如果没有出现错误且没有退出,表明已经安装
    此模块。
2、如果未安装,到www.cpan.org进行下载两个模块,DBI-1.607.tar.gz和DBD-mysql-4.010进行安装。
    tar -xzvf DBI-1.607.tar.gz
    cd DBI-1.607
    perl Makefile.PL
    make
    make test
    make install
    DBD-myql-4.010也同样的方式进行安装。
3、通过下面的perl脚本连接数据库:
    my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","root","123456");
    my $sth = $dbh->("select * from clients");
    $sth->execute();
    while(my $ref = $sth->fetchrow_hashref())
    {
        print "cid=$ref->{'cid'} and cname=$ref->{'cname'}\n";
    }
    $sth->finish();
    $dbh->disconnect();