1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use CGI;

     6 

     7 my ( $input, $q, $key, $wert, $param, %result );

     8 

     9 #read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!";

    10 $q = new CGI;

    11 

    12 $anhang = $q->param('POSTDATA');

    13 

    14 my @params = split( /&/, $anhang );

    15 

    16 foreach (@params) {

    17     ( $key, $wert ) = split( /=/, $_ );

    18     $result{$key} = $wert;

    19 }

    20 

    21 # Folgend SSL-Script