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