Select Code to Download

use CGI;
my $co = new CGI;
...
print $co->reset;
print $co->end_form;
print $co->end_html;

print <<CheckNameBox;
<script language="JavaScript">
...
} // end function
</script>
CheckNameBox