Select Code to Download

sub handler : method    {
    my ($self, $r) = @_;
...
}
...
1;

sub handler    {
    my $r = shift;
...
    return Apache2::Const::OK;
}
1;

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