perl -le 'use strict; use warnings;use DBI; my $h = DBI->connect("dbi:ODBC:does_not_exist", undef, undef, {PrintError => 0, RaiseError => 0}) or die $DBI::errstr;'
[unixODBC][Driver Manager]Data source name not found, and no default driver specified (SQL-IM002) at -e line 1.

##</code><code>##

perl -le 'use strict; use warnings; use DBI; my $h = DBI->connect("dbi:Oracle:host=fred.example.com;sid=fred", "xxx","yyy", {RaiseError => 0, PrintError => 0}) or die $DBI::errstr;'
ORA-24327: need explicit attach before authenticating a user (DBD ERROR: OCISessionBegin) at -e line 1.

##</code><code>##

perl -le 'use strict; use warnings; use DBI; my $h = DBI->connect("dbi:mysql:database=testd", "xxx","yyy", {RaiseError => 0, PrintError => 0}) or die $DBI::errstr;'
Unknown database 'testd' at -e line 1.