#!/usr/local/bin/perl -w
print "Content-type: text/html\n\n";
foreach $item(@INC){
        print "$item <BR>\n";
}

##</code><code>##

# ./fred
Content-type: text/html
 
/usr/local/lib/perl5/5.00503/sun4-solaris <BR>
/usr/local/lib/perl5/5.00503 <BR>
/usr/local/lib/perl5/site_perl/5.005/sun4-solaris <BR>
/usr/local/lib/perl5/site_perl/5.005 <BR>
. <BR>

##</code><code>##

/usr/local/lib/perl5/5.00503/sun4-solaris 
/usr/local/lib/perl5/5.00503 
/usr/local/lib/perl5/site_perl/5.005/sun4-solaris 
/usr/local/lib/perl5/site_perl/5.005 
. 
/usr/local/apache/ 
/usr/local/apache/lib/perl