#!env perl
use strict;
use warnings;
use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error);

$/="\n\n";
my $z = new IO::Uncompress::Bunzip2("zzzzz.bz2")
    or die "Argh! $Bunzip2Error\n";

my $cnt=0;
while (my $buff = $z->getline()) {
    ++$cnt;
    my $len = length($buff);
    print "BLOCK: $cnt\nLEN: $len\n$buff\n\n\n\n";
    last if $cnt>10;
}