perl -MExtUtils::Installed -le '$_=ExtUtils::Installed->new->modules;print'

##</code><code>##

perl -le '@_=grep/Module/,split/\n/,`perldoc -uT perllocal`;print scalar@_'

##</code><code>##


perl -MExtUtils::Installed -le '@_=ExtUtils::Installed->new->modules;print for sort{lc$a cmp lc$b}@_' >mod.ext

perl -e '@_=grep/Module/,`perldoc -uT perllocal`;for(@_){s/.*?\|([^>]+)>/$1/}print for sort{lc$a cmp lc$b} @_' >mod.loc

diff -y mod.ext mod.loc


##</code><code>##

diff -y mod.ext mod.loc|grep '<'|wc -l

##</code><code>##

diff -y mod.ext mod.loc|grep '>'|wc -l