my $headers = new HTTP:Headers(
	Referer => "http://www.perlmonks.org/"
);

my $request = new HTTP::Request(
	"POST",
	"http://www.excite.com/cgi-bin/usr44/mystuff.cgi",
	$headers
);

my $ua = LWP::UserAgent->new;


my $response = $ua->request($request);
print $response->content;