Select Code to Download

  $dbh->{PrintError} = 0;

If you turn "RaiseError" on then you'd normally turn "PrintError" off.

my $entries =
    eval {
...
        eval {$dbh->rollback ()} or $err .= "\n   Rollback processing 
+failed!";
        die $err;
    };

my $entries;
eval {
...
} or do {
    ... rollback and die ...
};