1   sub parse_form {
2   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
3   if (length($buffer) < 5) {
4      $buffer = $ENV{QUERY_STRING};
5	   }
6
7   @pairs = split(/&/, $buffer);
8   foreach $pair (@pairs) {
9   ($field1, $value) = split(/=/, $pair);

10  $value =~ tr/+/ /;
11  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# §Úı±o°ÝÃD¬O¥X¦b³oùØ¡A¦ý´N¬O¤£ª¾¹D­n¦p¦ó¦a­×¥¿¡C
12  $FORM{$field1} = $value;
13  }