use Compress::Zlib;
use HTML::Entities;

sub zlibc{ # zlib compress
$output = compress($input);
$output = pack ("u", $output);
$output = encode_entities($output)}

sub zlibu{ # zlib uncompress
$o = decode_entities($input);
$o = unpack ("u", $o);
$output = uncompress($o)}