for(keys %INC) { print "$_: $INC{$_}\n" };