use strict;
use warnings;
use Archive::Zip;

my $zip = Archive::Zip->new();
$zip->read('C:\Users\user1\Desktop\Stuff\perltooltesting\test.zip') or die "could not open file $! \n";

my $fh  = Archive::Zip::Read->new($zip,'test.txt');