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, ''));