Help for this page
use IO::Compress::Zip qw(zip $ZipError); ... $zip->close;
## when using '-', Stream is set to 1 ... $z->close;