sub form() {

print $doc->start_multipart_form(-name=>'form1',
                                 -method=>'POST',
				 -action=>'netsession.cgi',
				 -enctype=>'multipart/form-data');
				     
	print $doc->textfield(-name=>'computer',
				    -size=>15,
				    -maxlength=>15,
				    -override=>1);
	print "&nbsp&nbsp&nbsp&nbsp";
	print $doc->submit();
	print "&nbsp&nbsp";
	print $doc->reset();
	print $doc->end_mulitpart_form();

}