--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/htdocs/cgi-bin/receive_a.test	Tue Jan 29 15:36:24 2013 +0100
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use CGI;
+
+my ( $input, $q, $key, $wert, $param, %result );
+
+#read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!";
+$q = new CGI;
+
+$anhang = $q->param('POSTDATA');
+
+my @params = split( /&/, $anhang );
+
+foreach (@params) {
+    ( $key, $wert ) = split( /=/, $_ );
+    $result{$key} = $wert;
+}
+
+# Folgend SSL-Script