#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $authors = get("http://www.cpan.org/authors/00whois.html");
my %aem;
my %aec;
while($authors=~/A NAME=\"([A-Z]+)\"\>.+?\&lt\;([^\&]*)\&gt\;/gcs){
  $aem{$1}=$2;
  $aec{$1}=0;
}
my $modules = get("http://www.cpan.org/modules/01modules.index.html");
while($modules=~/A HREF=\"[^\"]+authors[^\"]+\"\>([A-Z]+)\<\/A\>\s+\<A HREF=\"[^\"]+\"\>([^\<]+)/gcs){
  $aec{$1}++;
}

my $k;
foreach $k (sort keys %aem){
  if($aec{$k}>0){
    printf "%4d %s\n",$aec{$k},$aem{$k};
  }
}