Help for this page

Select Code to Download

Select or download this

zip [$tmpfiles.'/file1.txt',$tmpfiles.'file2.txt']
          =>$tmpfiles.'/output.zip',
   FilterName => sub { s[^.*/][] };

Select or download this

use Archive::Zip::SimpleZip qw($SimpleZipError) ;

...
close $fh;

$z->close();