while (1) {
   $socket->recv($data, 1024);
   print $data;
   last if $data eq '';
}

##</code><code>##

while (read($socket, $data, 1024)) {
   print $data;
}