SetHandler perl-script PerlHandler 'sub { use mod_perl qw(PerlStackedHandlers PerlFileApi); \ shift->send_http_header(); \ return Apache::Constants::OK; \ }' Alias /level @DocumentRoot@ SetHandler perl-script PerlHandler Apache::Clean PerlSetVar CleanLevel 1 Alias /option @DocumentRoot@ SetHandler perl-script PerlHandler Apache::Clean PerlSetVar CleanOption shortertags PerlAddVar CleanOption entities PerlAddVar CleanOption whitespace Alias /filter @DocumentRoot@ SetHandler perl-script PerlHandler Apache::Clean Apache::Clean PerlSetVar CleanLevel 3 PerlSetVar Filter On SetHandler perl-script PerlHandler My::PlainHandler Apache::Clean PerlSetVar Filter On Alias /plain-static @DocumentRoot@ SetHandler perl-script PerlHandler Apache::Clean My::DoNothingHandler PerlSetVar Filter On LogLevel debug