#!/bin/sh find `perl -e 'print join(" ", @INC)'` -type f -name "*.pm"