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