#!/usr/local/bin/perl
use CGI;

my $c = new CGI;
local *FH;
open FH, '.htaccess';
my $htaccess = do {local $/; <FH>};
close FH;

print $c->header(),
        $c->start_html('Testing PERL5LIB'),
        $c->h1('info:'),
        $c->p($ENV{SERVER_SOFTWARE}),
        $c->p("Perl: $]"),
        $c->p("mod_perl: " . $ENV{MOD_PERL}),
        $c->hr(),
        $c->h1('.htaccess:'),
        $c->pre($c->escapeHTML($htaccess)),
        $c->hr(),
        $c->h1('@INC:'),
        $c->p(join $c->br(), @INC),
        $c->end_html();