do { $socket->recv($response, 1); $data = $data . response; } until ($response eq "\0x00");