my $z = IO::Uncompress::Bunzip2::->new($filename);

while (<$z>) {
}