my $str_len = length($data);
$str_len += (4 - $str_len % 4 || 4);
print $sock pack("NZ$str_len", length($data), $data);