#!/usr/bin/perl
use Mooix::Thing;
run sub {
	my $this=shift;

	# Format the help text a bit. The first line is a title, and words
	# inside =..= are links to other help.
	my $title=shift;
	$title=~ s/=([-_A-Za-z0-9]+)=/<a href="$1">$1<\/a>/g;
	my $blankline=shift; # after the title should come a blank line
	print "<h1>$title</h1>\n";
	print "<pre>$blankline\n"; # just in case it's not blank!
	foreach (@_) {
		s/&/&amp;/g;
		s/</&lt;/g;
		s/>/&gt;/g;
		s/=([-_A-Za-z0-9]+)=/<a href="$1">$1<\/a>/g;
		print "$_\n";
	}
	print "</pre>\n";

	return;
}
