#!/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 {"