BEWARE! find modifies $_. So, if you call a find inside another, you surely get things messed up!

       The wanted() function does whatever verifications you
       want.  $File::Find::dir contains the current directory
       name, and $_ the current filename within that directory.
[download]

You'd better localize $_ where appropriate!

Update: I agree with demerphq in his reply: going iteratively is, in this case, the safer thing to do.

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}