Select Code to Download

@files = $zip->memberNames();

@file = splice @files, 1, 50;

foreach $line (@file) {

...
       $zip->addFile("$line");
      
  }