while (read ($SocketHandle,$Status,1) ne 0)