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;