User trs80 is correct - use the syb_err_handler attribute to set an error handler that ignores "errors" with an error code of 0 (that's what PRINT statements come back as.)

Something like this should work:

sub err_hdl {
   my($err, $sev, $state, $line, $server, $proc, $msg) = @_;
   
   if(!$err) {
       return 0;
   }
   return 1;
}

$dbh = DBI->connect(...., {syb_err_handler => \&err_hdl});

etc.
[download]

Michael