--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/send_a.test	Mon Jan 28 14:29:25 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);