Perl, threads, tcp port checker

Давненько не програмував, але вирішив згадати Perl на одній задачці, вірніше, її частині.
Є текстовий файл з проксями (2000 штук), які треба перевірити для початку на елементарну живучість хоста і сервіса. По одному перевіряти - займе пів дня. Тут приходять на поміч threads (нитки чи потоки). 200 потоків, який кочегарять 10 проксяків кожен, і того справляються з задачею за одну хвилину.