perl连接MYSQL需要装什么模快啊？

hz555

perl连接MYSQL需要装什么模快啊？我装了DBD-MYSQL DBI。可还是不行啊，有谁知道，请教下？
我把程序代码贴出来

#!/usr/bin/perl

BEGIN {
        my $WMPATH="";
        foreach ($0,$ENV{'PATH_TRANSLATED'},$ENV{'SCRIPT_FILENAME'})
        {
            $WMPATH = $_;
            next if ($WMPATH eq '');
            $WMPATH =~ s/\\/\//g; $WMPATH =~ s/\/[^\/]+$//o;
        unshift(@INC,$WMPATH);
                unshift(@INC,$WMPATH . "/extlib");
                unshift(@INC,$WMPATH . "/config");
    }
        use CGI::Carp qw(fatalsToBrowser);
}

use strict;
use CGI;
use DBI;
use WMCGI;
use WMCGI::CATemplates;
use WMCGI::WMSessions;
use URI::Escape;

my $q = new CGI;

my $thisfilename = $WMCGI::AdminFile{'index'};

my $action = WMCGI::wminit();

my $dbh = WMCGI::dbconnect(\%WMCGI:B_cfg);

my $userdata = 0;

unless ($userdata = WMCGI::WMSessions::session_start($dbh))
{
        print $q->redirect($WMCGI::AdminFile{'login'}.'?action=login&');
        exit;
}

print CGI->header();
WMCGI::CATemplates::CHeader("管理中心", $userdata);
my @level = ();
$level[2] = '<span style="color: #FFFFFF; background-color: #FF00FF;padding:2px;">版主</span>';
$level[3] = '<span style="color: #00FFFF; background-color: #0000FF;padding:2px;">总版主</span>';
$level[9] = '<span style="color: #FFFF00; background-color: #FF0000;padding:2px;">站长</span>';
my $imlevel = '';
if (defined($level[$userdata->{'USER_LEVEL'}]))
{
        $imlevel = $level[$userdata->{'USER_LEVEL'}];
}
print <<EOF;

百度TOP10

楼下解释

cnweb

看不懂