Help for this page
zip [$tmpfiles.'/file1.txt',$tmpfiles.'file2.txt'] =>$tmpfiles.'/output.zip', FilterName => sub { s[^.*/][] };
use Archive::Zip::SimpleZip qw($SimpleZipError) ; ... close $fh; $z->close();