Or even better:

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

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

Now every database method will raise an error automatically if one is encountered - Laziness! And get out of the habit of putting quotes around variables when you don't need to.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)