Select Code to Download

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

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