#!/usr/bin/perl print "Content-type: text/plain\n\n"; print "Your choice was: "; if( $ENV{'QUERY_STRING'} =~ /ONE/ ){ print "ONE"; }elsif ( $ENV{'QUERY_STRING'} =~ /TWO/ ){ print "TWO"; }elsif ( $ENV{'QUERY_STRING'} =~ /THREE/ ){ print "THREE"; }else{ print "FOUR"; }