find(sub { -f $_ && push(@list, $File::Find::name); 1 }, "/your/path");