需要安裝 DBD::mysql 模塊，你的系統中現在沒有，因此無法連接到MYSQL數據庫
安裝方法是（在CMD方式下執行命令）：
ppm install DBD::mysql
或
perl -MCPAN -e "install DBD::mysql"
后面的命令需要你的電腦有C語言編譯器

直接給代碼哈。
use DBI;
my $DATABASE = DBI->connect("DBI:mysql:dbOffice:localhost",'(Username)','(Password)',{RaiseError=>1}) || "Database connection failure: $DBI::errstr";
if($DBI::err){
print "Content-type: text/html\n\n";
print "Database Connect Error...<br>($DBI::err) $DBI::errstr";
exit;
}
這是已測代碼

用ppm裝啊。。。不行的話下載到本地然后路徑指為本地再裝。。

或者就這樣

use dbi

$self->{DBREF}=DBI->connect("DBI:mysql:database=$database;host=$host",$user,$password);