in reply to TCP Socket not receiving.

Your first example works for me just fine.

Update: I didn't pay attention to the data you're sending. See BrowserUk's reply for solution.

In Section Seekers of Perl Wisdom