print "On file: $i\n<br>";
my $filename = $cgi->param("file1") or print "Cannot do that: $!\n";
print "Uploading . . .";
my $upload_filehandle = $cgi->upload("file$i") or print "cant upload: 
+$!\n";
print "done<br>\n";
print "Making zip . . .";
my $zip = Archive::Zip->new() or print "Canot make zippah: $!\n";
print "done<br>\n";
print "Reading Zip . . . ";
my $status = $zip->readFromFilehandle($upload_filehandle);
print "done<br>\n";
print "Mah Statuhs: $status\n";
$zip = undef unless ($status eq 'AZ_OK');
if(defined($zip)) {
  print $zip->members();
} else {
  print "Ooops something happened: $!\n";
}
[download]

Mungeing!
On file: 1
Uploading . . .done
Making zip . . .done
Reading Zip . . .