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

##</code><code>##

$dbh->{RaiseError} = 0;
$dbh->{RaiseError} = undef;