perl -le'
chomp(@_=`perldoc -T perllocal`);
# List EXE_FILES installed by CPAN

$_=join"\n",@_;
@_=split/\"Module\"\s/;
@_=grep/EXE_FILES:\s[^"]+/,@_;

for(@_){
 @x=split/\n/;
 @x=grep/EXE|0m/,@x;
 push@z,@x
}
s/^\s+\*\s+\"([^\"]+).?/$1/ for@z;
@_=grep/EXE_FILES/,@z;
@_=map{substr($_,11,length($_))}@_; 
undef@z;

for(@_){
 if(/\s/){
  @x=split/\s/;
  push@z,$_ for@x
}
else{
 push@z,$_
 }
}
%_=map{s/^\S+\///;$_=>1}@z;
print$_ for sort{lc($a)cmp lc($b)}keys%_'


##</code><code>##

perl -le'
chomp(@_=`perldoc -T perllocal`);
# List EXE_FILES installed by CPAN, by module

$_=join"\n",@_;
@_=split/\"Module\"\s/,$_;
@_=grep/EXE_FILES:\s[^"]+/,@_;

for(@_){
 @x=split/\n/;
 @x=grep/EXE_FILES|0m/,@x;
 push@z,@x
}
my$m;
s/^\s+\*\s+\"([^\"]+).?/$1/ for@z;

for(@z){
 if(/EXE_FILES:\s(.*)/){
  $_{$m}=$1      # wtf
 }else{
  $m=$_;$_{$m}=1 # aha
 }
}
for(sort{lc($a)cmp lc($b)}keys%_){
 if($_{$_}=~/\s/){
  @x=split/\s/,$_{$_};
  s/^\S+\/// for@x;
  $_{$_}=join"\n ",@x
 }else{
  $_{$_}=~s/^\S+\///g
 }
print"$_\n $_{$_}\n"
}'