In File::Find::Closures I have a bunch of examples of using closures to provide the wanted subroutine for find and then reporting the results later.