Я конечно совершенно не знаю perl, но как я вижу:
многопоточность отсутвует
Как я понял скрипт все-равно получает страницу сайта целиком, но это не целисобразно. Лучше получать 1 символ и рвать коннект. Помнится я как-то что-то вроде этого делал на ПХП, так меня потом же ответами и заДОСило
Кстати, самый вереый способ организовать многопоточность - многократно запустить скрипт :P