Deflateされたファイルの伸張

Question

Deflateされたファイルを伸張し、すべてprintするにはどうすればいいですか？
ファイル: aaa.dat

use strict;
use warnings;
use IO::Uncompress::Inflate;

my $buffer;
unless(inflate 'aaa.dat' => \$buffer){
  die "inflateでエラー\n";
}
# この後どうすればいいか分かりません

Answer 1

すみません、自己解決しました。

#!/usr/bin/perl

use strict;
use warnings;
use IO::Uncompress::Inflate qw(inflate $InflateError);

my $buffer;
inflate('aaa.dat', \$buffer) or die "inflateでエラー\n";
print $buffer;

こうなりました。