Maybe the error was a warning, not a die:

$ perl -e ' eval { warn "xxx" } '
xxx at -e line 1.
$ perl -e ' eval { die "xxx" } '
$
[download]

In which case, one might consider a local $SIG{__WARN__} handler:

sub is_zip {
   #Load the file
   local $SIG{__WARN__}  = sub { goto CONTINUE };
   $status = $zip->read($file);
   CONTINUE:
   #Check $status
}
[download]

The code above is bad (it's an idea only), but the basic idea is to have a __WARN__ handler that supresses printing of the error and then branches to a goto tag outside itself, which keeps the default handler from being called.

However, using mime-magic to determine the file type is probably better.

#Read data into $file
if ($file =~ m/^\x50\x4B\x03\x04/) {
   #Parse as ZIP file
} else {
   #Parse as something else
}
[download]

Or automate that type of task with the previously-mentioned File::Type module.

---

radiantmatrix
require General::Disclaimer;
Perl is

---

perl -e "{ local $SIG{__WARN__} = sub { die @_;};eval {warn 'xxx'}; pr
+int 'a:'.
$@}"
__OUTPUT__
a:xxx at -e line 1.
[download]

That is check $@ for success.

If you only check the signature, which is what my quick check into File::Type confirmed that it is doing, there is a risk even if it is remote that another binary file could start with these magic bytes.