use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get( "http://aspn.activestate.com/ASPN/Perl/Haiku/AboutPerl" );

my @names = ($mech->content =~ /Name: (.+?)<BR/igm);
my %count;
++$count{$_} for @names;
for my $key ( sort { $count{$b}<=>$count{$a} || lc $a cmp lc $b } keys %count ) {
    printf "%3d: %s\n", $count{$key}, $key;
}