#!/usr/local/bin/perl -w
# lwp-uapost.pl -- Fuelle ein Formular automatisch aus,
#            und lies die Antwort des Servers.

use LWP::UserAgent;

$url = $ARGV[0] || "http://localhost/cgi-bin/cgi-input.pl";

$ua  = new LWP::UserAgent;
$req = new HTTP::Request 'POST' => "$url";

$req->content_type('application/x-www-form-urlencoded');
$req->content(join('&', join('=', ('myname', 'farid+hajji')),
                        join('=', ('mymail',
                           'farid%2Ehajji%40ob%2Ekamp%2Enet'))));

$res = $ua->request($req);
print $res->as_string;