Select Code to Download

#!/usr/bin/perl

...
  gunzip \(shift) => \(my $output);
  $output;
  }

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

...
length of compressed data 39
compressed to 20.6%
MATCH