Select Code to Download

    sub compressor {
        my $in = shift;
...
        gunzip \$in => \$out;
        return (decode ('utf8', $out));
    }