while (read ($SocketHandle,$Status,1))
{
    print($Status);
}