use strict;
use lib 'blinky';
use Data::Dumper;
warn Dumper( \%INC, \@INC );

__END__
$VAR1 = {
          'Carp.pm' => 'C:/Perl/lib/Carp.pm',
          'Exporter.pm' => 'C:/Perl/lib/Exporter.pm',
          'XSLoader.pm' => 'C:/Perl/lib/XSLoader.pm',
          'strict.pm' => 'C:/Perl/lib/strict.pm',
          'warnings/register.pm' => 'C:/Perl/lib/warnings/register.pm',
          'Config.pm' => 'C:/Perl/lib/Config.pm',
          'warnings.pm' => 'C:/Perl/lib/warnings.pm',
          'lib.pm' => 'C:/Perl/lib/lib.pm',
          'overload.pm' => 'C:/Perl/lib/overload.pm',
          'Data/Dumper.pm' => 'C:/Perl/lib/Data/Dumper.pm'
        };
$VAR2 = [
          'blinky',
          'C:/Perl/lib',
          'C:/Perl/site/lib',
          '.'
        ];