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

##</code><code>##

use Test2 qw(&func1);
# etc.