use CGI;
my $co = new CGI;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use diagnostics;
print $co->header;
print $co->start_html();
print $co->start_form;
print $co->h4("Name").$co->p;
print $co->textfield('name').$co->p;
print <<CheckNameBox;
<script language="JavaScript">
function CheckForEmptyTextbox() {
	alert(document.getElementById("name").value);	
} // end function
</script>
CheckNameBox
print $co->submit(-onclick=>"CheckForEmptyTextbox()");
print $co->reset;
print $co->end_form;
print $co->end_html;

##</code><code>##

use CGI;
my $co = new CGI;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use diagnostics;
print $co->header;
print $co->start_html();
print $co->start_form;
print $co->h4("Name").$co->p;
print $co->textfield('name').$co->p;
print <<CheckNameBox;
<script language="JavaScript">
function CheckForEmptyTextbox() {
	alert("hello");	
} // end function
</script>
CheckNameBox
print $co->submit(-onclick=>"CheckForEmptyTextbox()");
print $co->reset;
print $co->end_form;
print $co->end_html;