>>592
my $zip_error = "";
Archive::Zip::setErrorHandler(sub{ $zip_error = shift });

... die $zip_error;