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

#my $z = new IO::Uncompress::Bunzip2("zzzzz.bz2", {BlockSize=>512})
#my $z = new IO::Uncompress::Bunzip2("zzzzz.bz2", BlockSize=>512)
my $z = new IO::Uncompress::Bunzip2("zzzzz.bz2")
    or die "Argh! $Bunzip2Error\n";

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