merlyn has an article that pretty much covers this. It's actually an excellent article, and a good introduction to File::Find and directory recursion.

Thoroughly recommended!

Cheers,
Darren :)