find ~/work -name *.pm -type f -exec perl ~/bin/ptags.pl -m -t ./tags {} \;