#!/usr/bin/perl 

use CGI::Carp qw( warningsToBrowser fatalsToBrowser );
use Cwd       qw( getcwd abs_path );

use lib       qw( /some/where );

$|++;

print "Content-Type: text/plain\n\n";

print "Current directory is ", getcwd(), "\n\n";

foreach my $path ( @INC ) {
  print $path, " -> ", abs_path($path), "\n";
}