The answer can be found in the File::Find::Rule documentation. Even easier, I've recently written a script which does exactly that and you can copy from it, you can find it here.