Broken if you have a symlink. Please don't re-code File::Find unless you know why all the pieces are there. {sigh}

-- Randal L. Schwartz, Perl hacker