关于windows下连接数据库问题

CODE:

use strict;
use DBI;
my $drivers = DBI->avaliable_drivers();

my $DBH = DBI->connect(source:host:port,username,passward,\%attributes) or die "Cannot connect! $DBI::errstr\n";

#Want to use  a local MySQL database named "book".
my $DBH = DBI->connect("DBI:mysql:book","username","passward") or die "Cannot connect! $DBI::errstr\n";

#Want to use  a MySQL database on "www.myserver.com" named "book", the port is "333"
my $DBH = DBI->connect("DBI:mysql:book:[url]www.myserver.com:333[/url]","username","passward") or die "Cannot connect! $DBI::errstr\n";

#......

my $result = $DBH->disconnect;