$dbh->{PrintError} = 0;

##</code><code>##

our $SIG{__WARN__} = sub { ... }