#! /usr/bin/perl -w
use strict;
use LWP::UserAgent;

my $url = <>;
my $referrer = <>;
my $target = <>;

my $ua = new LWP::UserAgent;

my $req = new HTTP::Request(GET => $url);
$req->header(Referer => $referrer);
my $res = $ua->request($req, $target);