my $input;
if ($ENV{REQUEST_METHOD} eq 'GET'){
	$input = $ENV{QUERY_STRING}; 
} else {
	read(STDIN,$input,$ENV{CONTENT_LENGTH}); 
}
foreach( split(/&/,$input)){
	$_ =~ tr/+/ /;
	my ($name,$value) = split(/=/,$_,2);
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	if($param{$name}) {
		$param{$name}.= ",$value"; 
	} else {
		$param{$name} = $value; 
	}
	print "Found $name = $value\n";
}