while($ans=<$sock>)