use TieRegistry;
print Dumper \%INC;