print $co->start_html(-script=>{-type=>'JAVASCRIPT',
                                   -src=>'./javascript_textfield.js'});

##</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(-script=>{-type=>'JAVASCRIPT',
                                   -src=>'./javascript_textfield.js'});
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;