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;