#! /bin/ksh

function getperl {
	dirs="$HOME/WWW $BIB"
	for dir in $dirs
	do
		find $dir -exec grep -wl bin/perl '{}' \; -print 
	done | grep -v ",v" | grep -v "RCS"
}

files=`getperl | sort -u`

echo "These perl files use open:"
grep -l open $files

exit

/acminfo/5/hcibib/accessibility/chaccess.cgi
/acminfo/5/hcibib/accessibility/chaccess.txt
/acminfo/5/hcibib/accessibility/src/chaccess.cgi
/acminfo/5/hcibib/accessibility/src/chaccess.txt
/acminfo/5/hcibib/analog
/acminfo/5/hcibib/analog.cgi
/acminfo/5/hcibib/be/be.pl
/acminfo/5/hcibib/be/bs.cgi
/acminfo/5/hcibib/bibtoc.cgi
/acminfo/5/hcibib/bin/analog
/acminfo/5/hcibib/bin/count.pl
/acminfo/5/hcibib/bin/hits
/acminfo/5/hcibib/bs/analog
/acminfo/5/hcibib/bs/bs.cgi
/acminfo/5/hcibib/bs/bs.pl
/acminfo/5/hcibib/bs.cgi
/acminfo/5/hcibib/bs/index.pl
/acminfo/5/hcibib/bs/pa
/acminfo/5/hcibib/bs.pl
/acminfo/5/hcibib/bs/rate.cgi
/acminfo/5/hcibib/bs/search.pl
/acminfo/5/hcibib/hitcount.cgi
/acminfo/5/hcibib/index.pl
/acminfo/5/hcibib/listdir.cgi
/acminfo/5/hcibib/mysearch/mysearch.cgi
/acminfo/5/hcibib/newgs.cgi
/acminfo/5/hcibib/rate.cgi
/acminfo/5/hcibib/readings/oldgenfile
/acminfo/5/hcibib/robosplit
/acminfo/5/hcibib/sam/sam.pl
/acminfo/5/hcibib/search.pl
/acminfo/5/hcibib/Work/bin/bibaliases
/acminfo/5/hcibib/Work/bin/bibexpand

/acminfo/5/hcibib/bin/suggest.cgi *************************** chmod 644 
/acminfo/5/hcibib/quest.cgi ********************************** protected
/acminfo/5/hcibib/suggest.cgi *********************************** protected