[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??