tenatious:

i tried your code and it wouldn't work for me. first the function is Recurse and not recurse. the arguments to the function are a reference to an array of directories and a reference to a hash of options.

while playing with it i came up with:

#! /usr/bin/perl

use strict;
use warnings;

MAIN:
{
my @SDIRS; 
my %dirs;
my %rules;
$SDIRS[0]       = "./";
#$rules{match} =; 

 use File::Recurse;
%dirs =  Recurse(\@SDIRS, \%rules);

my ($key, $value, @atmp);
while (($key,$value) = each %dirs) {
        @atmp = @{$value};
        foreach(@atmp){
        #here $key is the path to a file
        #and $_ is the file itsself
        print $key."/".$_."\n"; 
        }
    }


 exit 0;
}
[download]