sub handler : method	{
	my ($self, $r) = @_;
...
	$self->{r}->pnotes(error => 'Darn');
	return Apache2::Const::SERVER_ERROR;
}
...
1;