Требуется написать чекер проксей на PHP

<?php
 
$proxy_port = 8080;
 
preg_match_all('/(.+)[\r\n]+/', $proxy_list, $m);
 
foreach( $m[1] as $k => $v ) {
 
    $conn = fsockopen($m[1][$k], $porxy_port) ;
 
    if( $conn ) {
        
        echo $m[1][$k] . ' <font color="green">is valid</font><br/>';
        
    } else {
        
        echo $m[1][$k] . ' <font color="red">is not valid</font><br/>';
    }
    
    @fclose($conn);
}
 
?>

<?
define("_THREAD",    100);//больше 100 потоков этот URL не выдерживает эффективно
define("_TRY",        1);//по поводу нескольких попыток, что-то я заглючил с multiCURL-ом, поэтому не трогаем
define("_TIME",        20);//+ 5-10 секунд по сравнению с тем, что нам надо
 
//--------------------------------------------------------------------------------
error_reporting(E_ALL);
set_time_limit(0);
ignore_user_abort(TRUE);
ob_implicit_flush();
//--------------------------------------------------------------------------------
$fpi=fopen('proxy.txt','r');//файл для чека
$fpo=fopen('checked.txt','a');//сюда складываются все прокси
$fpc=fopen('CoDeeN.txt','a');//а сюда все CoDeeN-прокси
 
$count=0;
$i=0;
$mh=curl_multi_init();
$ch=array();
$proxy=array();
while(!feof($fpi))
    {
    $proxy[$i]=trim(fgets($fpi, 4096));
    $ch[$i]=curl_init();
    curl_setopt($ch[$i],CURLOPT_URL,"http://yandex.ru");    
    curl_setopt($ch[$i],CURLOPT_RETURNTRANSFER,1);
    curl_setopt($ch[$i],CURLOPT_CONNECTTIMEOUT,_TIME);
    curl_setopt($ch[$i],CURLOPT_TIMEOUT,_TIME);
    curl_setopt($ch[$i],CURLOPT_PROXY,$proxy[$i]);
    curl_multi_add_handle($mh,$ch[$i]);
    $i++;
    if($i==_THREAD)
        {
        for($j=0;$j<_TRY;$j++)
            check($mh,$ch,$proxy);
        for($j=0;$j<_THREAD;$j++)
            curl_multi_remove_handle($mh,$ch[$j]);
        curl_multi_close($mh);
        $i=0;
        $mh=curl_multi_init();
        $ch=array();
        $proxy=array();
        echo (++$count)."\n";
        }
        
    }
 
function check(&$mh,&$ch,&$proxy)
    {
    global $fpo,$fpc;
    curl_multi_exec($mh,$running);
 
    $active = null;
    do
        $mrc = curl_multi_exec($mh, $active);
    while ($mrc == CURLM_CALL_MULTI_PERFORM);
    while ($active && $mrc == CURLM_OK)
    if (($qwe=curl_multi_select($mh,1)) != -1)
        do
            $mrc = curl_multi_exec($mh, $active);
        while ($mrc == CURLM_CALL_MULTI_PERFORM);
    /*такая конструкция почему-то грузит проц в отличии от предыдущей
    do
        {
        curl_multi_exec($mh,$running);
        }
    while($running>0);
    */
    
 
    }
 
 
fclose($fpi);
fclose($fpo);
?>