perl -Mvars -we 'print join qq/\n/,map {qq/$_=>$INC{$_}/} sort keys %INC'