PerlOptions +GlobalRequest
PerlModule Apache2::Request
PerlModule Apache2::Const

PerlSetVar MasonArgsMethod mod_perl

....

<FilesMatch "(\.mas|handler)$">
    SetHandler perl-script
    PerlHandler "sub { return Apache2::Const::NOT_FOUND; }"
</FilesMatch>

<FilesMatch "^(\.)">
    SetHandler perl-script
    PerlHandler "sub { return 404; }"
</FilesMatch>

##</code><code>##

<FilesMatch "(\.mas|handler)$">
    SetHandler perl-script
    PerlResponseHandler "sub { use Apache2::Const; return Apache2::Const::NOT_FOUND }"
</FilesMatch>