---------------------------------------------------
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/&/&/g;
   $value =~ s/"/"/g;
   $value =~ s/</</g;
   $value =~ s/>/>/g;
	$FORM{$name} = $value;
}
----------------------------------------------------

Then i loop all the form-element that is submitted like...
-----------------------------------------
foreach $key (keys %FORM) {
  print "Want to save : [$FORM{$key}]<br>\n";
}
-----------------------------------------