Depending on the amount of the files you're talking about, maybe File::Find::Rule fit your needs:

use strict;
use warnings;
use File::Find::Rule;

my @files = File::Find::Rule->file()->in('/my/path');
print scalar @files, $/;
[download]