use IO::Compress::Gzip qw(gzip :constants);
sub compgzip
  {
      gzip \(shift) => \(my $output),
        -Level => Z_BEST_COMPRESSION;
      $output;
  }
use IO::Uncompress::Gunzip qw(gunzip);
sub uncompgzip
  {
      gunzip \(shift) => \(my $output);
      $output;
  }