#!/bin/csh -f

grep use `find .. -name "*.pm"` |\
     sed "s|::|@@|g" |\
     awk -F: '{print $2}' |\
     sed "s|@@|::|g" |\
     awk -F\; '{print $1}' |\
     grep -v "\#" |\
     sed "s|qw(|@|" |\
     awk -F@ '{print $1}' |\
     sort | uniq |\
     grep "^use" > perl.modules.list
