How do you set HTTP REFERER using LWP ?

[Guest_imported]

Here is what I tried after looking at the docs at CPAN.org:

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;



$ua = new LWP::UserAgent;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)');
$res = $ua->request(
GET "

http://www.domain.com/cgi-bin/testall.cgi",

http_referer=>'

http://www.domain2.com'

);
$content = $res->content;

print "content-type: text/html\n\n";
print "$content";


The testall.cgi script reads every Enviornment Variable and returns an html page.

I can't seem to set the http_referer header variable.

What am I doing wrong?

 

[DavidJohnson]

Hi!

I don't know if you solved this but anyway I use:

use HTTP::Headers together with
$request->header("Referer" => $your_referer);

regards
"John"