I tried to build what you are trying to build, and I didn't do very well. I was told to use File::Find

I now use file::find in a incessantly to patrol servers in a variety of scripts. If you need an Example, I posted a couple of them. It is really easy to use, and it saved me from wasting time reinventing the wheel.

But, there are a million ways to do things...

good luck...