use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("PlanetXML/0.1 " . $ua->agent); my $req = new HTTP::Request POST => 'http://www.test.be/cgi-bin/xmlreceive.cgi'; $req->content_type('text/xml'); $content=<

Sender Receiver

lots of stuff END $req->content($content); my $res = $ua->request($req); if ($res->is_success) { print $res->content; } else { print "Error\n"; } ##

##

use CGI;

$q = new CGI;

print $q->header;
@name = $q->param('keywords');
print map("$_\n",@name);