# untested
use IO::Uncompress::Bunzip2 ();
my $fh = IO::Uncompress::Bunzip2->new($filename)
    or die "bunzip2 $filename: $IO::Uncompress::Bunzip2::Bunzip2Error";
# use $fh like a regular filehandle