Its not a direct answer but if you know how to get the find command to do what you want the find2pl program that comes with Perl can be useful getting sample code. Might also look at File::Find::Rule which has a bit nicer api.