do 'd:/perl/lib/Data/Dumper.pm';
Data::Dumper->import();
print Dumper(\@INC,\%INC);