#! /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;
}