Please use File::Find, and your programming will be able to focus on the core issues. It's silly to reinvent that code. It's even sillier to try to debug your own code while you are attempting to do that.

-- Randal L. Schwartz, Perl hacker