#!/usr/local/bin/perl
require "subparseform.lib";
&Parse_Form;
print "Content-type: text/html\n\n";
print "";
print "Lanikai Elementry Teacher Input
Career and Life Skills Grade 6
";
foreach $key (sort keys(%formdata)) {
if ($formdata{$key} ne ""){
print "Your Teacher input is: $formdata{$key}\n";
}
}
print "\n
You may now close this window
";
print"";