#!/usr/bin/perl print "Content-type: text/plain\n\n"; print "Thanks for feeding me: "; if( $ENV{'QUERY_STRING'} =~ /grapes/ ) { print "grapes"; }elsif ( $ENV{'QUERY_STRING'} =~ /raisins/ ) { print "raisins"; }elsif ( $ENV{'QUERY_STRING'} =~ /garbage/ ) { print "garbage"; }else{ print "no selection"; }