Select Code to Download

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

if ($INPUT{'one'}) {&one; }
elsif ($INPUT{'two'}) {&two; }
else {&three; }