#!/usr/bin/env perl
use warnings;
use strict;
use Config;
use CGI qw/header/;
print header('text/plain');
print "Perl $] at $^X, perlpath is $Config{perlpath}\n",
	"EUID/EGID: $>/$)\n", "\@INC:\n";
print +((-r)?'':'NOT READABLE: ')."\"$_\"\n" for @INC;