*Config::DBI::error_handler = eval "&$symbolic_ref";

DBI->connect($DSN, $User, $Pass, 
      { HandleError => Config::DBI::error_handler } );