用perl连接mysql的数据库时出错！！！！！

tigerlei

用perl连接mysql的数据库时出错：
系统提示：can't locate object method "connect " via package "dbi"
源程序为：#! /usr/bin/perl

use DBI;
use strict;

my $db="rd1";
my $host='localhost';
my $user='sql';
my $password='111';

my $dbh = DBI->;connect("DBI:mysql:database=$db;host=$host",
                     $user, $password, {RaiseError =>; 1});

open(FHD, "stu.csv" or die;
while (my $line=<FHD> {
        chomp($line);
    my ($f1, $f2, $f3, $f4, $f5)=split(/\,/,$line);
    if ($f1) {
        my $q=qq[ INSERT INTO stu_table VALUES ("$f1", "$f2", "$f3", "$f4", "$f5" ];
            my $sth=$dbh->;prepare($q);
            unless($sth->;execute) {die "$!\n";}
    }
}

close(FHD);

wolfg

你有没有安装DBD::mysql