I'd recommend looking into the File::Find module. This is an excellent way to recursively process files in a directory - I've written a very similar script in the past using it.

-- Kirby

Tuxtops: Laptops with Linux!