--- a/bin/receive_n	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/receive_n	Tue Jan 29 14:06:27 2013 +0100
@@ -3,26 +3,31 @@
 use strict;
 use warnings;
 
-my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result);
-my $i=0;
+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'});
+$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;
- }
+    @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");
+my @schluessel = keys(%Formular);
+my @values     = values(%Formular);
+open( OUT, ">test" );
 print OUT ("\@schluessel: @schluessel\n\@values: @values\n");
 close OUT;
+
 # Folgend SSL-Script