use strict;
use vars qw(@ISA $VERSION);

$VERSION = '3.2501';
$VERSION = eval $VERSION;

##</code><code>##

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

##</code><code>##

INC PATHs
C:/Perl/site/lib
C:/Perl/lib
.


INC HASH
warnings/register.pm => C:/Perl/lib/warnings/register.pm
bytes.pm => C:/Perl/lib/bytes.pm
XSLoader.pm => C:/Perl/lib/XSLoader.pm
Carp.pm => C:/Perl/lib/Carp.pm
C:/Perl/site/lib/sitecustomize.pl => C:/Perl/site/lib/sitecustomize.pl
Exporter.pm => C:/Perl/lib/Exporter.pm
strict.pm => C:/Perl/lib/strict.pm
warnings.pm => C:/Perl/lib/warnings.pm
overload.pm => C:/Perl/lib/overload.pm
Data/Dumper.pm => C:/Perl/lib/Data/Dumper.pm