print $query->header(), $query->start_html('XX');
print $query->start_form(-method=>'post', -action=>'program.pl');
print $query->table(
	$query->Tr( # line 167
		$query->td(...)
	),
         ...
);
print $query->end_form();
print $query->end_html();

##</code><code>##

use CGI qw(:standard);
my $query = new CGI;