----- code snippet -----

my $fu = File::Util->new(max_dives => 2000);

@results = $fu->list_dir($root_dir, qw/ --files-only --recurse /);
foreach (@results) { # strip off the $root_dir
   $_ =~ s!($root_dir\\)|($root_dir/)!!g;
}
      ----- code snippet -----