get-with-referrer

   1 #! /usr/bin/perl -w
   2 use strict;
   3 use LWP::UserAgent;
   4
   5 my $url = <>;
   6 my $referrer = <>;
   7 my $target = <>;
   8
   9 my $ua = new LWP::UserAgent;
  10
  11 my $req = new HTTP::Request(GET => $url);
  12 $req->header(Referer => $referrer);
  13 my $res = $ua->request($req, $target);
  14