my $str_with_length =  pack("N/a*", $some_data);
$sock->send($str_with_length);