$dbh = DBI->connect(...); $dbh->{syb_err_handler} = \&err_handler; $dbh->do($sql); $dbh->disconnect;