1. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
2. @pairs = split(/&/, $buffer);
3. foreach $pair (@pairs) {
4.      ($name, $value) = split(/=/, $pair);
5.      $value =~ tr/+/ /;
6.      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
7.      $value =~ s/\s/ /g;
8.      $value =~ s/<([^>]|\n)*>//g;
9.      $value =~ s/<//g;
10.     $value =~ s/>//g;
11.     $FORM{$name} = $value;
12.}