my $dbh = DBI->connect(
   "DBI:${dbtype}:${dbname}", $dbuser, $dbpass),
   {RaiseError => 1},
);

# oops!
$dbh->prepare('slecet foo from baz');