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