use CGI qw(:standard);
print header;
print start_html (-title=>'graded quiz', -BGCOLOR=>'beige');

# The match doesn't work if more than one character is matched
if(param('s1') =~ m/ad/i) {
print "<B><BR>Correct! Congradulations! Your answer was a</B><P>";
}else{
print "<B><BR>Incorrect! You did not mark the correct answer!</B><P>";
   }
print "<BR>The value for s1 is: <B>";
print param('s1');
print "</B><P>";
print "The value for s2 is: <B>";
print param('s2');
print "</B><P>";
print "The value for s3 is: <B>";
print param('s3');
print "</B><P>";
print "The value for s4 is: <B>";
print param('s4');
print "</B><P>";

print "<HR>";

foreach $key (param()) {
print "NAME = ";
print $key;
print " and VALUE = ";
print param($key);
print "<P>";
}
print "<HR>";

# Only the first character of the value is printed. Why?
foreach $key (param()) {
print "NAME = " . $key . "and VALUE = " . param($key)  . "<P>";
}
print end_html;