Quick pointer. You might want to take a look at File::Finder, which also does its business by generating wanted routines for you.

Update: funny, I just noticed I replied to a node that's almost 5 years old.