my $msg;
$sock->recv($msg, 1024);
# or
 sysread ( $sock, my $line, 1024);