sub readit{
	# should use a shared lock here
	open(READ,"guestbook.txt") || dienice("Couldn't open guestbook for reading: $!");
	local $/;	# slurp mode
	my @text = <READ>;
	close READ:
	return split(/:/,@text);
}

##</code><code>##

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();
	}
}