use strict;
use warnings;

use 5.014;

use Archive::Zip;
use IO::Uncompress::Bunzip2;

my $zipFile = q{mans.zip};
my $zip     = Archive::Zip->new( $zipFile );
my @members = $zip->memberNames();

foreach my $member ( @members )
{
    say qq{Member: $member};

    my $memberFH = $zip->memberNamed( $member );
    my $bzFH     = IO::Uncompress::Bunzip2->new(
       sub { \ $_[ 0 ] }->( $memberFH->contents() )
       );

    my $lineCt   = 0;
    while ( my $line = $bzFH->getline() )
    {
        last if $lineCt ++ > 5;
        print $line;
    }
}