вот чекер прокси
sub testProxy
{
$env="http://nntime.com/textenv.pl";
#$env="http://samair.ru/cgi/textenv.pl"

$s=getPage($env,"http://".$_[0]);
($adr,$port)=split(/:/,$_[0]);
if($s!~/REMOTE_ADDR=$adr/) {return 0}; #bad or transparent proxy
if($s=~/HTTP_VIA/) {return 0;} #anonymous or transparent proxy
if($s=~/HTTP_X_FORWARDED_FOR/) {return 0;} #anonymous or transparent proxy
return 1; #eleet proxy
}

sub getPage
{
use LWP::UserAgent;
$ua=LWP::UserAgent->new;

#$ua->proxy(http=>$_[1]);
$ua->timeout(10);

$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
$req=HTTP::Request->new(GET=>$_[0]);

$res=$ua->request($req);

if($res->is_success)
{
#print($res->content);
return $res->content;
}
else
{
#print "Error!\n";
}
}


sub getPage а мне нужно что б он чекел соксы 4 и 5 и https и разбрасывал по отдельным файлам все что начекал да еще и многопоточный был
как я могу это сотворить еси можно плизз готовое решение я не силен в перле только регулярки написать могу и больше ничего