#!perl
%PostData = readPostInput(0);
print "content-type: text/html\n\n";

print "<pre>\n";
foreach $key (sort keys %PostData){
print "$key ==> $PostData{$key} \n";

}
print "</pre>\n";








sub readPostInput($){  #*************************************************   Reading Post Input
my ($maxlength)=@_;
my(%searchField, $buffer, $pair, @pairs);
if (($ENV{'REQUEST_METHOD'} eq 'POST')&&(($maxlength>=$ENV{'CONTENT_LENGTH'}||($maxlength==0)))){



   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   @pairs = split(/&/, $buffer);



$pairc = -1;

 while($pairc < $#pairs){
$pairc++;
     $pair = $pairs[$pairc];




     ($name, $value) = split(/=/, $pair);
     $value =~ tr/+/ /;
     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     $name =~ tr/+/ /;
     $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    if (defined $searchField{$name}){$searchField{$name} = join('-',($searchField{$name},$value))}
    else {
    $searchField{$name} =$value;
    }


 }
  }

return (%searchField);
}