print while (<$sock>);