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

##</code><code>##

sub handler	{
	my $r = shift;

	$r->content_type('text/html');
	$r->print($r->pnotes("error"));
	return Apache2::Const::OK;
}
1;

##</code><code>##

...
ErrorDocument 500 /error
...
PerlModule dir_browse::error
<Location /error>
  SetHandler perl-script
  PerlResponseHandler dir_browse::error
</Location>