Archive::Zip's read method is documented to return an integer to signal an error, it won't die

http://search.cpan.org/perldoc/Archive::Zip#read

I can't post my code due to my internship

Your actual code isn't required, just something that triggers the same error/problem, and something that doesn't require purchasing a special brand of soap, something self contained