ls -1 *.pm *pl | xargs -i egrep "^use  *" {} | egrep -v "constant|vars|fields" | sort | uniq -d