<VirtualHost>
        SetHandler          perl-script
        PerlTransHandler    My::Apache::Rewrite
</VirtualHost>

##</code><code>##

package My::Apache::Rewrite;

use strict;
use warnings;

use Apache2::RequestRec ();
use Apache2::Const -compile => qw(FORBIDDEN DECLINED OK DONE);


sub handler {
	my $r = shift;
	unless(($r->uri ne '/' && !$r->args) && (-d $r->filename || -f $r->filename)) {
		$r->set_handlers(PerlResponseHandler => 'My::Apache::Main');
	}
    return Apache2::Const::OK;
}

1;