#!/usr/bin/perl
use strict ;
use warnings ;
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
my $input = 'test.zip';
my $output ;
unzip $input => \$output, Name => "test1.txt" or die "unzip failed: $UnzipError\n";
    
my @lines = split("\n",$output);
print $lines[196609];