xover

<Perl>
   use lib qw(/home/foo/lib);
</Perl>
PerlModule Bar

<VirtualHost *>
        ServerName weewee.corp.com
        DocumentRoot /home/foo/html

        <Location />
                Order allow,deny
                Allow from all
                SetHandler perl-script
                PerlHandler Bar
        </Location>

        <LocationMatch  "/(foo)*">
                RemoveHandler perl-script
                SetHandler default-handler
        </LocationMatch>
</VirtualHost>