#!/usr/bin/perl
use Modern::Perl;
use warnings;
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;

print header();
my ($grp1,$grp2,$grp3);

$grp1 = param('grp1');
$grp2 = param('grp2');
$grp3 = param('grp3');


if ($grp1 eq "Correct1" )
{
print p("Question One Is Correct");
}
elsif ($grp1 eq"Incorrect1")
{
print p(" Question One is Incorrect");

}



if ($grp2 eq "Correct2")
{
print p("Question One Is Correct");
}
elsif ($grp2 eq"Incorrect2")
{
print p(" Question One is Incorrect");

}


if ($grp3 eq "Correct3")
{
    print p("Q3 is correct" ) ;
}
elsif ($grp3 eq "Incorrect3")
{
    print p("q3 is wrong");
}
~