use DBI;
my $dbsrc = 'DBI:mysql:test:localhost';
my %attr  = ( PrintError => 0, RaiseError => 0 );
my $dbh = DBI->connect($dbsrc, 'mboudreau', 'secret', \%attr) or die "$DBI::err
str";
$dbh->disconnect;

##</code><code>##

Can't locate auto/DBI/connect.al in @INC (@INC contains: /System/Library/Perl/5.8.8/darwin-thread-multi-2level /System/Library/Perl/5.8.8 /Library/Perl/5.8.8/darwin-thread-multi-2level /Library/Perl/5.8.8 /Library/Perl /Network/Library/Perl/5.8.8/darwin-thread-multi-2level /Network/Library/Perl/5.8.8 /Network/Library/Perl /System/Library/Perl/Extras/5.8.8/darwin-thread-multi-2level /System/Library/Perl/Extras/5.8.8 /Library/Perl/5.8.6/darwin-thread-multi-2level /Library/Perl/5.8.6 /Library/Perl/5.8.1 . /usr) at /Users/mrb/Sites/mason_mysql_test.mhtml line 17