#!/usr/bin/perl -w

use strict;
use File::Find;

@ARGV   = ();
my %mod = ();

# does this look familiar merlyn? :)
find sub { 
   push @ARGV, $File::Find::name if /\.pl\z/ or /\.cgi\z/;
}, qw(/dirs /to/scan/here); 

while (<>) {
   $mod{$1}++ if /use\s+([A-Za-z_:]+);/;
}

# top 20 so i can filter out those that don't count :P
print "Top Twenty:\n";
print map {"<li>[kobe://$_] ($mod{$_})\n"} (sort {$mod{$b} <=> $mod{$a}} keys %mod)[0..19];