$db = DBI->connect( $base, $user, $pw, {
        AutoCommit   => 0,
        PrintError   => 0,
        HandleError  => sub { print "error handler <@_>\n"; return 0 },
        HandleSetErr => sub { print "seterr handler <@_>\n"; return 0 },
    }) or croak "Could not connect to database $base: ${\DBI->errstr}\n";