--- a/htdocs/cgi-bin/receive_n	Mon Feb 11 09:37:04 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-#!/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