$dbh->{HandleError} = sub {
  warn $DBI::lasth->{Statement};
  Carp::confess;
}