--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/htdocs/cgi-bin/send_a.test	Tue Jan 29 15:36:24 2013 +0100
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require LWP::UserAgent;
+require CGI;
+require CGI::Carp qw(fatalsToBrowser);
+
+my ( $cgi, $firma, $mail, $text, $url, $ua, $req );
+$cgi = new CGI;
+
+# Auswerten der Daten.
+#$firma=$cgi->param('Firma');
+#$mail=$cgi->param('Mail');
+#$text=$cgi->param('Text');
+my @param = $cgi->param();
+open( TEST, ">test" );
+print TEST ("@param");
+close TEST;
+
+exit(0)
+
+  #$url='http://192.168.0.144/cgi-bin/recieve';
+
+  #$ua=LWP::UserAgent->new;
+  #$ua->env_proxy;
+
+  #$req=HTTP::Request->new("POST",$url);
+  #$req->header('Content-Type' => 'text/html');
+  #$req->content('Firma=Wir&Mail=mail');
+
+  #$ua->request($req);