##    Write content to the main page area    
sub write_content {
	# write html to the main frame
	my $html = \@_;
	print header,
		start_html(-target => 'main'),
		join "\n", @$html,
		end_html;
}