print while <$newsock>;