Perl скрипт. Заставить работать через прокси!

Ребят нужна ваша помощь!
ВОобщем есть perl скрипт для vkontakte.ru, нужно заствить его работать через прокси.
Кто поможет?
В подарок шестизнак подарю))

 

Хоть бы скрипт выложил =)

 

В ПМ щас кину)
Скрипт просто хороший, пока не хочу в паблик выкладывать))

 

давай

 

И проксик рабочий найди , http шный =)

 

проксики вот тут есть, http://proxy.shternov.ru/
)))
оч. надеюсь на тебя!))

 

Хм...а чего там сложного?
Чтото типа того...

Code:

use IO::Socket;
my $cmd;
my($host,$port) = ('127.0.0.1',3128);
my $proxy=IO::Socket::INET->new($host, $port) or print "Can not connect!\n";
$cmd  = "GET http://www.vkontakte.ru/index.php HTTP/1.0\n";
$cmd .= "Host: www.vkontakte.ru\n";
$cmd .= "Referer: None\n";
$cmd .= "Pragma: No-Cache\n";
$cmd .= "User-Agent: Mozilla(Perl Version)\n";
$cmd .= "\n";
$cmd =~ s/\n/\015\012/g;
print $proxy $cmd;
while(my $line = <$proxy>)
{
 print "$line\n";
}

Код не проверял, но суть понятна

 

if lwp in use

# $proxy='127.0.0.1:8080';
# $ua->proxy('http'=>"http://$proxy"); # http or socks

 

спасибо genom уже сделали)
Кстати не подскажите в чем различие между http proxy и socks ?

 

носки вроде не пашут

 

Различие собственно в самом протоколе...почитай Rfc, думаю, поймешь

 

Code:

# $ua->proxy('http'=>"http://$proxy"); # http or socks

носок не будет работать , насколько я осведомлен.