Select Code to Download

<Directory /path/to/mp>
    SetHandler           perl-script
    PerlAccessHandler    APP::Phase::Authen
    PerlResponseHandler  APP::Page ModPerl::Registry
    Options              ExecCGI
</Directory>

sub handler ($$) {
    my ($class, $r) = @_;
    my $next = tied *STDOUT || return SERVER_ERROR;
...
        });
    OK; 
}