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

##</code><code>##

insert into mytable values ( ?, ? )
main::__ANON__('DBD::Oracle::st execute failed: ORA-01722:
...