ActivePerl v5.8.6 built for MSWin32-x86-multi-thread
Archive::Zipで空の（or不正な）ファイルを読み込ませると、エラー文がだらだらと表示されてしまいます。
これを表示させない方法（or read前に正常なzipか判定する方法）があれば教えてください。

---------- ソースの一部 ここから ----------
$zip = Archive::Zip->new();
die "error\n" unless $zip->read($zipfile) == AZ_OK;
---------- ソースの一部 ここまで ----------

---------- 出力（パス書き換え済） ここから ----------
format error: file is too short
at 〜/site/lib/Archive/Zip.pm line 1015
Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zip::Archive=HASH(0x275188)', 'IO::File=GLOB(0x182f7ec)') called at 〜/site/lib/Archive/Zip.pm line 923
Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=HASH(0x275188)', 'IO::File=GLOB(0x182f7ec)', 'test.zip') called at 〜/site/lib/Archive/Zip.pm line 904
Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0x275188)', 'test.zip') called at 〜/test.pl line 28
error
---------- 出力 ここまで ----------