or download this
rsync -rvz cpan.pair.com::CPAN/ > list
perl -e 'use strict; use warnings; my %h; while(<>){ chomp; /^\S{10}/
+or next; my $n = substr $_,43; substr($_,11) =~ /^\s*(\d+)/ or die; m
+y $s = $1; while ($n =~ m"/|$"g) { my $p = $`; $p =~ m"authors/id/.(?
+:/..)?$" and next; $h{$p} += $s; } } warn 0+keys(%h); for my $n (reve
+rse+(sort { $h{$b} <=> $h{$a} } keys%h)[0..9999]) { printf "%10.0f %s
+\n", $h{$n}, $n; }' list > sizes