gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;

my @modules;

while (my $module = <DATA>) {
    chomp $module;
    my $distro = $module;
    $distro =~ s{::}{-}g;
    $mech->get(
        "http://deps.cpantesters.org/depended-on-by.pl?dist=$distro"
    );
    push @modules, [ @{$mech->links} - 5, $module ];
}

printf "%3d: %s\n", @$_ for sort {
    $b->[0] <=> $a->[0]
            ||
    $a->[1] cmp $b->[1]
} @modules;

__DATA__
Getopt::Abridged
Getopt::ArgvFile
Getopt::AsDocumented
Getopt::Attribute
Getopt::AutoConf
Getopt::Awesome
Getopt::Base
Getopt::CallingName
Getopt::Casual
Getopt::Chain
Getopt::Clade
Getopt::Compact
Getopt::Compact::WithCmd
Getopt::Complete
Getopt::constant
Getopt::Declare
Getopt::Easy
Getopt::Euclid
Getopt::EvaP
Getopt::ExPar
Getopt::Fancy
Getopt::FileConfig
Getopt::Flex
Getopt::Function
Getopt::GetArgs
Getopt::GUI::Long
Getopt::Helpful
Getopt::Inherited
Getopt::Janus
Getopt::Lazy
Getopt::LL
Getopt::Long
Getopt::Long::Descriptive
Getopt::Long::DescriptivePod
Getopt::Long::GUI
Getopt::LongUsage
Getopt::Lucid
Getopt::Mixed
Getopt::Mixed::Help
Getopt::Modular
Getopt::OO
Getopt::Param
Getopt::Param::Tiny
Getopt::Plus
Getopt::Regex
Getopt::Simple
Getopt::Std::Strict
Getopt::Std::WithCheck
Getopt::Tabular
Getopt::Tiny
Getopt::Tree
Getopt::Usaginator
Getopt::Whatever
Getopt::WonderBra
Getopt::XML
Getopt::Yagow
Getopt_Auto
CBSSports::Getopt
CGI::Getopt
MooseX::Getopt
MooseX::Getopt::Defanged
MouseX::Getopt
Tk::Getopt