Select Code to Download

# Sender:
my $serialized = serialize($data);
print $sock pack( 'N', length($serialized) ), $serialized;

# Receiver:
my $data = do {
...
      while length($buf) < $length;
   deserialize($buf)
};