This will run, just create the two directories and let me know what you think, thanks for looking!

#!/usr/bin/perl -w
#
use strict;
use CGI qw(:standard);
use File::Basename;
use File::stat;
use File::Slurp qw(read_dir);
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

#print header();

# zip stuff:::
my $zip = Archive::Zip->new();   # new instance
#Archive::Zip::setChunkSize( 2000 );
#my $chunkSize = Archive::Zip::chunkSize(); 

my ($file_path, $file_name, $zipped, $flag,$k_size);
$flag = '';

# vars
my @files;

# get the pdf files from here:::
my @directories = qw( /var/www/test_1 /var/www/test_2);

# set sizes:::
my $min_size = 1024; # bytes => 1K
my $max_size = 10485760; # bytes =>10MB

# go in the directories:::
my $c;
for my $d (@directories) {    
    $c++;                      
    push @files, grep { -f && -s _ >= $min_size && -s _ <= $max_size }
+ read_dir( $d, prefix => 1 );
}

#get file sizes just in case:::
# open (INDEXFILE, '>>log.txt');
foreach my $files(@files) { 
  
  #my $size =  (stat($files))[7] / 1024;  # size in kilobytes
  my $size = stat($files)->size;
     $k_size = sprintf ("%03d", $size);  
  #print "\n$files = $size - $k_size\n";
   
  # do some clean up:::
  $files=~s/[\r\n]+//;
     
  if($files =~/(.*?)\/([^\/]+)$/) { 
       
    $file_path=$1; $file_name=$2; 

    }

  # creating log file:::
  open (INDEXFILE, '>>log.txt');
  print INDEXFILE "$file_name - $k_size\n";
  close (INDEXFILE);

  $zipped = $zip->addFile('log.txt')unless $zip->memberNamed('log.txt'
+);
  foreach my $each_file (glob("$file_path/$file_name")) {
      
       $zipped = $zip->addFile($each_file,$file_name);
     }   
   die $flag="Failed" unless $zip->writeToFileNamed( 'test.zip' ) == A
+Z_OK;

}
#close (INDEXFILE);

# show status:::
if($flag eq "Failed") {
    print "\n\nError in archive creation!\n\n";
} else {
    print "\n\nArchive created successfully!\n\n";
}
[download]