@files = $zip->memberNames();

##</code><code>##

@file = splice @files, 1, 50;

##</code><code>##

foreach $line (@file) {

   $fileend = (split(/\./,"$line"))[-1];
    if (($fileend eq "jpg") || ($fileend eq "txt")) {
       $zip->addFile("$line");
      
  }