my (%searchField, $buffer, $pair, @pairs);
	read(STDIN, $buffer, $ENV{ 'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs){
	  my ($name, $value) = split(/=/, $pair);
	  $value =~ tr/+/ /;
	  $value =~ s/%([a-fA-f0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
	  $name =~ tr/+/ /;
	  $name =~ s/%([a-fA-f0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
	  $searchField{ $name } = $value;
	}
  return %searchField;