while ($sock->recv($msg, 1024)) {
$length = length($msg);
print "MESSAGE: $msg LENGTH: $length\n";
}