Select Code to Download

use IO::Compress::Gzip qw(gzip :constants);
sub compgzip
...
      gunzip \(shift) => \(my $output);
      $output;
  }

------------------------------ Compression by gzip/gunzip

...
compressed to 20.1%
MATCH