Select Code to Download

  use IO::Compress::Gzip qw(gzip $GzipError);

...
  if(gzip \$foo => \$compressed [,OPTS]){
   # Compressed version of $foo stored in $compressed
  }

  # assume $fh is a filehandle
  ...
  gzip \$foo => $fh

  gzip \$foo => "-"