Select Code to Download

   my $dbh = try {
      DBI->connect(
...
   $dbh->{HandleError} = sub { throw Error::Database -text => $DBI::er
+rstr };

   return $dbh;

package Error::Database;

...
}

1;