You probably want to use the module version of this, File::Find. It's quite easy and you probably need only minimal modifications to your code. If you post it (or the relevant part of it) we might be able to help.

Chris
M-x auto-bs-mode