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

##</code><code>##

if ($INPUT{'onething'} eq "onething") { &onething; }
elsif ($INPUT{'onething'} eq "twothing")  {&twothing; }
elsif ($INPUT{'threething'}) {threething; }
else {&formula; }
exit;

##</code><code>##

if ($INPUT{'fourthing'} eq "four") {
$address = "four.txt";
}  elsif ($INPUT{'fourthing'} eq "five") {
$address = "five.txt";
}	elsif ($INPUT{'fourthing'} eq "six") {
$address = "six.txt";
}	else  {&formula; }