Egad. You took code from a column of mine that was shown as the wrong way to do it, and then put my name on it in here.

Please, please, don't do that to me. You offend me.

It's like showing the "before" picture of Jared from the Subway commercial, and saying "this is Jared". {sigh}

-- Randal L. Schwartz, Perl hacker

---

update: OK, you edited the code to remove the hand-rolled directory recurser, replacing it with the File::Find solution. Thank you.