#!/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
