package My::Fixup;
use strict;
use warnings FATAL => qw(all);

use Apache2::Const -compile => qw(DIR_MAGIC_TYPE OK DECLINED);
use Apache2::RequestRec;
use Apache2::RequestUtil;

sub handler {
  my $r = shift;

  if ($r->handler eq 'perl-script' && -d $r->filename 
      && $r->is_initial_req)
  {
    $r->handler(Apache2::Const::DIR_MAGIC_TYPE);
    return Apache2::Const::OK;
  }
  return Apache2::Const::DECLINED;
}
1;

##</code><code>##

PerlInputFilterHandler Apache2::ModProxyPerlHtml
PerlOutputFilterHandler Apache2::ModProxyPerlHtml
SetHandler perl-script
PerlFixupHandler My::Fixup
PerlAddVar ProxyHTMLURLMap "http://host.doamin.tld /host"
PerlAddVar ProxyHTMLURLMap "http://host1.domain.tld /host1"
PerlSetVar ProxyHTMLVerbose "On"