5:   while ($socket->recv($char,1)) {
           print $char;
46:     $buffer.=$char;
47:   }