--- a/bin/receive_a.test	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/receive_a.test	Tue Jan 29 14:06:27 2013 +0100
@@ -4,17 +4,18 @@
 use warnings;
 use CGI;
 
-my ($input,$q,$key,$wert,$param,%result);
+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');
+$q = new CGI;
 
-my @params = split(/&/,$anhang);
+$anhang = $q->param('POSTDATA');
+
+my @params = split( /&/, $anhang );
 
-foreach (@params){
-   ($key,$wert)=split(/=/,$_);
-   $result{$key}=$wert;
+foreach (@params) {
+    ( $key, $wert ) = split( /=/, $_ );
+    $result{$key} = $wert;
 }
 
 # Folgend SSL-Script