in reply to perl socket

Check out the Example mentioned in Oreilly book
Here

In Section Seekers of Perl Wisdom