еще не видел таких же функциональных, говоришь? тут немного о многопоточности в пёрле и заодно реализован чекер с парсером, подобный твоему. работает из коробки. upd: а ссылочку то я и забыл. тыц
Зачем заставлять людей вводить свой ип вручную? ;( Вы же сами писали "мини" регесп ниже в скрипте..., почему бы не сделать так: PHP: my $ip_my='http://www.myip.ru/get_ip.php?loc='; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0"); my $res=$ua->get($ip_my); exit if (!$res->is_success); my $s=$res->decoded_content; $s=~m/(\d+\.\d+\.\d+\.\d+)/s; my $ip=$1; и на кой черт каждый раз удалять rezults и proxy? хотите переписать то '<' ставите, дописать '<<'