#!usr/bin/perl -w
use strict;
#use DBI;

print join("\n",@INC),"\n\n";

foreach (keys %INC)
{
   print "$_=>$INC{$_}\n";
}

__END__
without use DBI;
----------------
C:/Perl/site/lib
C:/Perl/lib
.

C:/Perl/site/lib/sitecustomize.pl=>C:/Perl/site/lib/sitecustomize.pl
strict.pm=>C:/Perl/lib/strict.pm


WITH use DBI:
--------------
C:/Perl/site/lib
C:/Perl/lib
.

C:/Perl/site/lib
C:/Perl/lib
.

XSLoader.pm=>C:/Perl/lib/XSLoader.pm
re.pm=>C:/Perl/lib/re.pm
warnings/register.pm=>C:/Perl/lib/warnings/register.pm
C:/Perl/site/lib/sitecustomize.pl=>C:/Perl/site/lib/sitecustomize.pl
List/Util.pm=>C:/Perl/lib/List/Util.pm
ActiveState/Path.pm=>C:/Perl/lib/ActiveState/Path.pm
Cwd.pm=>C:/Perl/lib/Cwd.pm
warnings.pm=>C:/Perl/lib/warnings.pm
DBI.pm=>C:/Perl/site/lib/DBI.pm
File/Basename.pm=>C:/Perl/lib/File/Basename.pm
Config.pm=>C:/Perl/lib/Config.pm
ActivePerl/Config.pm=>C:/Perl/lib/ActivePerl/Config.pm
Carp.pm=>C:/Perl/lib/Carp.pm
Scalar/Util.pm=>C:/Perl/lib/Scalar/Util.pm
Exporter/Heavy.pm=>C:/Perl/lib/Exporter/Heavy.pm
strict.pm=>C:/Perl/lib/strict.pm
Exporter.pm=>C:/Perl/lib/Exporter.pm
vars.pm=>C:/Perl/lib/vars.pm
constant.pm=>C:/Perl/lib/constant.pm
Config_heavy.pl=>C:/Perl/lib/Config_heavy.pl
AutoLoader.pm=>C:/Perl/lib/AutoLoader.pm
DynaLoader.pm=>C:/Perl/lib/DynaLoader.pm