| #!/usr/bin/perl | |
| require "subparseform.lib"; | |
| &Parse_Form; | |
| $food = $formdata{'food'}; | |
| print "Content-type: text/html\n\n"; | |
| if ($food eq "spinach") { | |
| print "You ate spinach, so you get dessert!"; | |
| } elsif ($food eq "broccoli") { | |
| print "Broccoli's OK. Maybe you'll get dessert."; | |
| } else { | |
| print "No spinach, no dessert!"; | |
| } |