Perl 在内存中解压缩bzip2包

我在内存中解压.bz包时遇到问题。我的脚本用于下载gzip包，它在内存中解压缩并将其输出发送到content（）

这在gzip之前是有效的，但不幸的是它不理解bzip2包：

$mech = WWW::Mechanize->new;
$mech->get("$url/pkg.gz");
$packages = Compress::Zlib::memGunzip($mech->content())

我试图寻找同等的压缩包，但没有成功。如何使用bzip2包实现这个简单脚本

use IO::Compress::Bunzip2 qw( bunzip2 $Bunzip2Error );

bunzip2(\$mech->content() => \my $packages)
   or die("bunzip2 failed: $Bunzip2Error\n");