perl调用cgi的方法介绍

use HTTP::Request::Common;
use LWP::UserAgent;
$user_agent = LWP::UserAgent->new;
$request = GET 'http://clearcase/~xhzhu/cgi/cgireader.cgi?text1=hello&text2=here';
$response = $user_agent->request($request);
print $response->as_string;

use HTTP::Request::Common;
use LWP::UserAgent;
$user_agent = LWP::UserAgent->new;
$request = POST 'http://clearcase/~xhzhu/cgi/cgireader.cgi',
[text1 => 'Hello', text2 => 'there'];
$response = $user_agent->request($request);
print $response->as_string;

#!/usr/local/bin/perl
use CGI;

$co = new CGI;

print $co->header,

$co->start_html(
  -title=>'CGI Example',
  -author=>'yourName',
  -BGCOLOR=>'white',
  -LINK=>'red'
);

if ($co->param()) {
    print
    "You entered this text: ",
    $co->em($co->param('text1')),
    " ",
    $co->em($co->param('text2')),
    ".";
 } else {
   print "Sorry, I did not see any text.";
}
print $co->end_html;