#!/bin/sh PERL_MODULE_LIST="/DBI /Data/ShowTable /Mysql /Data/Dumper /CGI/Carp /Date/Parse /AppConfig /Template /Text/Wrap /File/Spec /File/Temp /XML/Parser /GD/ /Chart/Base" find_perl_modules() { find `perl -e 'foreach(@INC){print "$_ " unless /^\.$/}'` -name '*.pm' -print|grep "$1" >/dev/null if [ $? -ne 0 ]; then echo "not found: $1"; fi } for W in $PERL_MODULE_LIST do find_perl_modules $W done