my $filename = "debug.log.bz2";
my $fh = IO::Uncompress::Bunzip2->new($filename)
    or die "bunzip2 $filename: $IO::Uncompress::Bunzip2::Bunzip2Error";
while(<$fh>){
  #do something
}