while (<$sock>)
{
    ...
}