Perl disable DBI HandleError

perlDisableDbiHandleError.pl

my $previous_handler = $dbh->{'HandleError'};
$dbh->{'HandleError'} = undef;
eval {
    $sth_insert->execute;
    $dbh->{'HandleError'} = $previous_handler;
    1;
} or do {
    $dbh->rollback;
    # Insert failed, try an update
    # No check needed because HandleError was restored
    $sth_update->execute;
};