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.