my ($nout, $status) = $zlib->inflate($s->{buf});
if (! defined $nout) {
print "Error inflating: errnum: $status\n";
} else {
# Inflation successful
$s->{buf} = $nout;
$nread = length ($nout);
}
####
$s->{buf} = $nout
####
$s->{buf} = $nout . $buff;