#!/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;
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |