local $SIG{__WARN__} = sub {
    unless ($_[0] =~ /\(err=0, errstr=undef, state=undef\)/) {
        warn $_[0];
    }
 };