Как бы написать свой клиент Gnutella на Perl?

Может кто-то занимался этим делом? Мне было бы очень интерестно узнать где бы нарыть инфу про это или посмотреть на примерчик какой-нибудь...

Обрыскал пол Инета но кажется все разработчики сговорились не делится исходниками на Перле.

Может кто знает где найти пример с использованием Net-Gnutella-0.1 package?