--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/recieve_n Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,28 @@
+#!/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