Select Code to Download

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 d
+river specified (SQL-IM002) at -e line 1.

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 ERRO
+R: OCISessionBegin) at -e line 1.

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.