1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use CGI;

     6 

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

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

     9 $q=new CGI;

    10 

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

    12 

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

    14 

    15 foreach (@params){

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

    17    $result{$key}=$wert;

    18 }

    19 

    20 # Folgend SSL-Script