Some perl find scripts. Faster than UNIX find...