. . . my ($grp1,$grp2,$grp3) = qw{ Correct1 Incorrect2 Correct3}; # explicit values # $grp1 = param('grp1'); # passed in values # $grp2 = param('grp2'); # $grp3 = param('grp3'); if ($grp1 eq "Correct1" ) { print p("Question One Is $grp1"); } elsif ($grp1 eq"Incorrect1") { print p(" Question One is $grp1"); } if ($grp2 eq "Correct2") { print p("Question One Is $grp2"); } elsif ($grp2 eq"Incorrect2") { print p(" Question One is $grp2"); } if ($grp3 eq "Correct3") { print p("Q3 is $grp3" ) ; } elsif ($grp3 eq "Incorrect3") { print p("q3 is $grp3"); } __output__ Content-Type: text/html; charset=ISO-8859-1

Question One Is Correct1

Question One is Incorrect2

Q3 is Correct3