eval {
    $sth = $self->dbh->prepare( $sql );
  };
  if ($@) {
    die "Database error (prepare): ", $self->dbh->errstr;
  }

  eval {
    $sth->execute();
  };
  if ($@) {
    die "Database error (execute): ", $self->dbh->errstr;
  }