#!/usr/bin/perl

use CGI qw(:standard);

print header;
print start_html('HPC Account Request'),
    h1('HPC Account'),
    start_form,
    "Instructor NetID: ",textfield('ins'), p,
    "Student NetID 1: ",textfield('id1'), p,
    "Student NetID 2: ",textfield('id2'), p,
    "Student NetID 3: ",textfield('id3'), p,
    "Student NetID 4: ",textfield('id4'), p,
    "Student NetID 5: ",textfield('id5'), p,
    "Student NetID 6: ",textfield('id6'), p,
    "Department: ",textfield('dept'), p,
    "Abstract: ",textfield('abs'), p,
     
    submit,
    end_form,
    hr;

if (param()) {
    print
    	"Instructor: ",em(param('ins')), p,
    	"Student NetID 1: ",em(param('id1')), p,
		"Student NetID 2: ",em(param('id2')), p,
		"Student NetID 3: ",em(param('id3')), p,
		"Student NetID 4: ",em(param('id4')), p,
		"Student NetID 5: ",em(param('id5')), p,
		"Student NetID 6: ",em(param('id6')), p,
		"Department: ",em(param('deot')), p,
		"Abstract: ",em(param('abs')), p,
		hr;
}
print end_html;