#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use CGI;

$h = new HTTP::Headers
     Referer         => 'http://bob.com/fun.htm';


$ua = LWP::UserAgent->new;
 $request = HTTP::Request->new(POST => "http://tom.com",$h);
 $response = $ua->request($request);


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