Doh! Somebody beat me to it. Didn't use IO::Socket either:

http://developers.slashdot.org/article.pl?sid=04/12/15/1953227&tid=95&tid=156&tid=1

-b


Sven Neuhaus wrote:
Can we beat them (in perl)?
http://www.freedom-to-tinker.com/tinyp2p.html

Reply via email to