Peamasii, there's something wierd about that example in the other node. It does not at all match the documented interface for File::Recurse.

From the pod:

SYNOPSIS  
    %hash = Recurse(\@dirs, \%rules) 

  Go through the @dirs and apply any rules from %rules. It will return
  a %hash where the keys are directories, and the values are the files
  in that directory in an array.

  e.g. $hash{'/usr/local/bin'} = [ 'ls', 'irc', ... ];
[download]

Nowhere does it mention passing a coderef as the first param.

I've never used File::Recurse, but you also might want to look at File::Find::Rule.

--
I'm Not Just Another Perl Hacker