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(-method => "POST", -action => 'first.cgi');
print $co->h4("Name").$co->p;
print $co->textfield({name => 'name', id => 'name'}).$co->p;
print $co->submit(-onclick=>"return CheckForEmptyTextbox()");
print $co->reset;
print $co->end_form;
print $co->end_html;