Select Code to Download

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
...
    if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
    else { $INPUT{$name} = $value; }
}

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

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