use File::Find;

my @list;
find(sub { push(@list, $File::Find::name) }, "/your/path");

# @list contains all file objects at and under /your/path