Index: /trunk/tools/eam/get.modules.sh
===================================================================
--- /trunk/tools/eam/get.modules.sh	(revision 42358)
+++ /trunk/tools/eam/get.modules.sh	(revision 42358)
@@ -0,0 +1,13 @@
+#!/bin/csh
+
+set filelist = `cat perl.modules.txt perl.scripts.txt | grep -v "^ *#" `
+
+# lets find the number of scripts/modules which use each of the listed modules
+foreach module (`grep -v "^ *#" perl.modules.ext`)
+  set Nused = `grep "^ *use" $filelist | grep " $module" | grep -v "$module\:" | wc -l`
+  echo "*** $module : $Nused"
+  if ($Nused < 5) then
+    grep "^ *use" $filelist | grep " $module" | grep -v "$module\:"
+  endif     
+end
+