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