while($ans=<$sock>) #### $ans=<$sock>;