package main;
use Data::Dumper;
print Dumper \%INC;