1. read (STDIN,my($temp), $ENV{'CONTENT_LENGTH'});
  2. my (@pairs) =split(/&/,$temp);
  3. my($item) = "";
  4. foreach $item(@pairs) {
  5.         my($key,$content) =split (/=/, $item, 2);
  6.         $content=~tr/+/ /;
  7.         $content=~s/%(..)/pack("c",hex($1))/ge;
  8.         my($fields{$key})=$content;
  9. }