Title: Contact Form

<perl>
	my $action = $query->{action} || 'index';
	my $who = $query->{who};

	$who =~ tr/A-Za-z/N-ZA-Mn-za-m/;
	$who =~ s/\+/\@/g;
	$who =~ s/\s/\@/g;

	my ($name,$domain) = split(/\@/, $who, 2);

	if ($action eq 'index') {
$root->{content} = qq~<h1>Contact Form</h1>

It appears you don't have JavaScript enabled on your browser. This site uses
JavaScript to obfuscate e-mail links as protection against e-mail harvesters.

To send an e-mail to this person, you'll have to either copy and paste the
address below or retype it in your e-mail program:<p>

<span style=\"font-size: larger\">$name</span><sup style=\"font-size: larger\">@</sup><span style=\"font-size: larger\">$domain</span>~;
	}
</perl>