perl проблема со скриптом

[GrOgy]

Как подделать в этом скрипте значение referer

use LWP 5.64;
use Time::HiRes qw(sleep);
use URI;
open (PARS, ">>parsing.txt") or die "$!";
print "введите искомое слово";
my $rut=<STDIN>;
print "\n$rut";

my $browser = LWP::UserAgent->new;
$browser->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0");
my $url = URI->new( 'http://www.google.com/search' );


for ($i=1000; $i<200000; $i=$i+10) {
$url->query_form(

'q' => "$rut",'hl'=>"en",'btnG'=>"Google+Search", 'start'=>"$i", 'hl' => "en", 'newwindow' => "1"


);

my $response = $browser->get($url);


print $content = $response->content();

print PARS $content;
sleep(3);
}
close PARS;

куда тут лепить значение referer??

[GrOgy]

или кто подскажет по каким параметрам гугля определяет автоматические запросы, через какое - то время запросов она банит ip

[Hubbitus]

вот пример, как в данном случае передавать реферера:
http://www.codecomments.com/archive2...-5-490536.html

Блок по IP, это уже совсем другая тема. Не помню кстати чтобы Гугл кого-то лочил...

[Stasik]

погляди тут
http://www.unix.org.ua/orelly/perl/cookbook/ch20_02.htm
вроде то