use strict;
use warnings;

use IO::Uncompress::Unzip qw($UnzipError);
use IO::Uncompress::Bunzip2;

my $zipFile = q{mans.zip};
my $zip = IO::Uncompress::Unzip->new( $zipFile )
    or die "Cannot open $zipFile: $UnzipError";

my $status;
for ($status = 1; $status > 0; $status = $zip->nextStream())
{
    my $name = $zip->getHeaderInfo()->{Name};

    warn "Processing member $name\n" ;

    my $bzFH = IO::Uncompress::Bunzip2->new($zip);
    my $lineCt   = 0;
    while ( my $line = <$bzFH> )
    {
        last if $lineCt ++ > 5;
        print $line;
    }
}