--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/htdocs/cgi-bin/receive_n	Tue Jan 29 15:36:24 2013 +0100
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my (
+    $Daten, $value, $name, $text,  $anhang, $input,
+    $q,     $key,   $wert, $param, %result
+);
+my $i = 0;
+my %Formular;
+my @Formularfelder;
+
+$anhang = $ENV{'QUERY_STRING'};
+read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} );
+&verarbeiten;
+
+sub verarbeiten {
+    @Formularfelder = split( /&/, $Daten );
+    foreach my $Feld (@Formularfelder) {
+        ( $name, $value ) = split( /=/, $Feld );
+        $value =~ tr/+/ /;
+        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+        $Formular{$name} = $value;
+    }
+}
+my @schluessel = keys(%Formular);
+my @values     = values(%Formular);
+open( OUT, ">test" );
+print OUT ("\@schluessel: @schluessel\n\@values: @values\n");
+close OUT;
+
+# Folgend SSL-Script