sub printit {
	my $query = shift;
	print $query->h2('Current Results');
	while (@_) {
		my $user = shift;
		my $comment = shift;
		print "Message by: $user<br>";
		print "&lt;Message&gt;<br><blockquote>$comment</blockquote>&lt;/Message&gt;";
		print $query->hr();
	}
}