win下perl连接mysql出错

我的code：

use DBI; my $dbname="wei"; my $locetion="127.0.0.1"; my $port="3306";my $databbse="DBI:ODBC:$dbname:$locetion:$port"; my $db_user="root"; my $db_pass="123456"; #my $dbh=DBI->connect($databbse,$db_user,$db_pass)||die "can't connect #databbse:$!n"; my $dbh=DBI->connect("DBI:ODBC:wei","root","123456",{'RaiseError'=> 1});my $sql="SELECT * FROM stu"; my $sth=$dbh->prepare($sql); $sth->execute()||die "can't:$dbh->errstr"; $dbh->disconnect;

就是连接不上，因为没有安装dbd：：mysql，所以我用ＯＤＢＣ，不知道行不行，望大家看看，解决解决