|
use LWP::Simple;
use URI::URL;
$url = url('http://www.yourserver.com/cgireader.cgi');
$url->query_form(text1 => 'Hello', text2 => 'there');
$html = get($url);
print $html;
#File: cgireader.cgi
#!/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;
|