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 . . .

I really do not have a explination, and if someone has one I would like to know. You have to make a reference of the dereferenced file handler object. In your case you read line should look like this.

my $status = $zip->readFromFilehandle(\$$upload_filehandle);

Here a segement of code that I used to get this working...

my $fh = $c->upload('zip');
my $zip = Archive::Zip->new();
$zip->read(\$$fh);

my @members = $zip->members();

foreach my $member (@members){
my $filename = $member->fileName();
print "$filename\n";
}