in reply to reading from sockets

Try this: 

    { local $/ = "abcd";
      $data = <SOCKET>;
    }

[download]
This should read data from the socket until it sees "abcd" and then it will stop.

In Section Seekers of Perl Wisdom