if ($ENV{'REQUEST_METHOD'} eq 'POST') {
     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
     my @pairs = split(/&/, $buffer);
} else {
     &error;
}