#!/usr/bin/perl -l

use strict;
use warnings;

# List EXE_FILES installed by CPAN, by module

$_ = join '', `perldoc -uT perllocal`;
my @m = (/=head2.*?\|([^>]+)/g);
my @e = (/EXE_FILES:\s([^>]*)/sg);

for (my $c = 0; $c < scalar @m; $c++) {
   $_{$m[$c]} = $e[$c]
}

my @z = ();
my $n = 0;

for (sort { lc($a) cmp lc($b) } keys %_) {
   if (my @x = split /\s+/, $_{$_}) {
      print;
      $n += scalar @x;
      s/^\S+\///  for @x; 
      print " $_" for @x;
      print "";
   }
}
#print $n;