I don't know what you are doing here and if Archive::Zip is used properly and if it provides an interface to deal with your requirement*. ( like a dedicated warnings class for no warnings )

But in general you can override the error handlers in $SIG{"__WARN__"} (and even $SIG{"__DIE__"} ) and catch these cases before continuing to normal error handling.

see warn for details ...

*) or an own errorHandler like Haukex++ showed