$dbh->{RaiseError} = 1;
.
execute some code
.