1 #!/usr/bin/perl

     2 

     3 use warnings;

     4 use strict;

     5 require LWP::UserAgent;

     6 require CGI;

     7 require CGI::Carp qw(fatalsToBrowser);

     8 

     9 my ($cgi, $firma, $mail, $text, $url, $ua, $req);

    10 $cgi = new CGI;

    11 

    12 # Auswerten der Daten.

    13 #$firma=$cgi->param('Firma');

    14 #$mail=$cgi->param('Mail');

    15 #$text=$cgi->param('Text');

    16 my @param=$cgi->param();

    17 open(TEST,">test");

    18 print TEST ("@param");

    19 close TEST;

    20 

    21 exit(0)

    22 

    23 #$url='http://192.168.0.144/cgi-bin/recieve';

    24 

    25 #$ua=LWP::UserAgent->new;

    26 #$ua->env_proxy;

    27 

    28 #$req=HTTP::Request->new("POST",$url);

    29 #$req->header('Content-Type' => 'text/html');

    30 #$req->content('Firma=Wir&Mail=mail');

    31 

    32 #$ua->request($req);