Since the button says "comment on Switcher", here's my comment:

Don't recurse yourself. Learn and use File::Find.

-- Randal L. Schwartz, Perl hacker