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