#!/usr/local/bin/perl -w

use strict;
use CGI qw(:standard);
print header();

print "Whatever HTML here...\n";

foreach my $key (sort param()) {
    if (param($key)) {
        print "<P><i>Your Teacher input is:</i><B>", param($key), "</B>\n";
    }
}