use warnings;
use Archive::Zip;


my $zip = Archive::Zip->new('test.zip');
  
# my $fh = $zip->memberNamed( { $zip => 'test1.txt'} );
my @members = $zip->memberNames();
# foreach my $member (@members) {
# print $member."\n";
# } 
open OUT,">kiop_data.txt" or die "Cant open kiop_data.txt : $! \n ";

open my $file,"<$fh" or die "cant open \'$fh\' : $! \n";
	my $lines = @$file[196609];
	# print $Lines[196609]."\n";
	close IN;
close OUT;