my $msg = pack('N/a', nfreeze($data));
while (length($msg)) {
   send_msg_block(substr($msg, 0, $max_msg_size, ''));
}

##</code><code>##

while (length($buf) < 4) {
   read_more_into_buf($buf);
}
my $data_len = unpack('N', substr($buf, 0, 4, ''));
while (length($buf) < $data_len) {
   read_more_into_buf($buf);
}
$data = thaw(substr($buf, 0, $data_len, ''));