You could try to simply bless it into an IO::File object. The following works, but i am not sure if it will work in CGI context.

use strict;
use warnings;

use IO::File;
use Archive::Zip;

my $fh;
my $zip = Archive::Zip->new();

open $fh, '<', 'c:/test.zip';
bless $fh, 'IO::File';

$zip->readFromFileHandle($fh);
print $_->fileName, "\n" for $zip->members;
[download]