#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use LWP::UserAgent;

$ua = LWP::UserAgent->new();  # User-Agent erzeugen

                              # Request erzeugen
$request = HTTP::Request->new('POST', 
                          'http://localhost/cgi-bin/dump.cgi');

                              # Formular-Inhalt deklarieren
$request->content_type('application/x-www-form-urlencoded');

                              # Formular-Inhalt setzen
@form = ('f1' => 'Warum? & Wieso?', 'f2' => 'Ein Slash: /');

$querystring = list2query(@form);

$request->content($querystring);

                              # Netzzugriff ausführen
$response = $ua->request($request); 

print $response->as_string();


###############################################################
sub list2query {
###############################################################
    my ($key, $value);
    my $querystring = "";

    while(($key, $value) = splice(@_, 0, 2)) {
        $value =~ s/[^\w-_]/sprintf "%%%02x", ord($&)/ge;
        $querystring .= "&" if $querystring;
        $querystring .= "$key=$value";
    }

    $querystring;
}