Select Code to Download

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

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