##    Write a message to the log area    
sub write_log {
	# write message to the log frame
	my $messages = \@_;
	print header,
		start_html(-target => 'log'),
		pre(join "\n", @$messages),
		end_html;
}