Hi,
i'm playing with a kind of a dereferer-script ... i'd like to "derefer" outgoing hits from my script ... this is what i'm trying now:
use CGI;use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
$url = 'http://www.google.com';
$version = "0.00";
$referer = "http://www.yahoo.com";
$agent = new LWP::UserAgent;
$agent->agent($version);
$agent->referer($referer);
$request = HTTP::Request->new('GET',$url);
$result = $agent->request($request);
print $result->content();
Any idea why this won't work or how to create a working one?
Thanks for hints
i'm playing with a kind of a dereferer-script ... i'd like to "derefer" outgoing hits from my script ... this is what i'm trying now:
Code:
#!/usr/bin/perl -w use CGI;use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
$url = 'http://www.google.com';
$version = "0.00";
$referer = "http://www.yahoo.com";
$agent = new LWP::UserAgent;
$agent->agent($version);
$agent->referer($referer);
$request = HTTP::Request->new('GET',$url);
$result = $agent->request($request);
print $result->content();
Any idea why this won't work or how to create a working one?
Thanks for hints