use Data::Dumper;
print Dumper(\%INC);

##</code><code>##

package test;
use strict;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw($x);

our $x = "hi";
__END__