use Carp;

DBI->connect(...,
   { RootClass => ...,
     HandleError => sub {
        local $Carp::CarpLevel = 1;
        $_[0] = Carp::shortmess($_[0]);
        0;
     },
   }