File::Find:

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

my $starting_path = '/home/test';
my @list_of_files;

find(
    sub { push @list_of_files, $File::Find::name if -e -f; },
    $starting_path
);
[download]