Select Code to Download

my $packer = 'bzip2';
my $file = 'data.txt.bz2';

open my $fh, "$packer -cd $file |"
    or die "Couldn't decompress '$file': $!/$?";

use strict;
my %charmap = (
...
my $decompressed = unpack 'b*', $compressed;

print "$decompressed\n";