my $dbh=DBI->connect(..., {RaiseError => 1});
# later:
if (eval {
    # use $dbh
    # perhaps the entire API handling
    1;
}) {
    # report success to the API
} else {
    my $error=$@;
    # Post-Process $error if needed
    # report $error to the API
}