my @array = find(\&collect_file, $dirphoto);
  for (@array) {
    print "$_<br>";
  }
}


sub collect_file
{
   my @array;
   push (@array, $File::Find::name);
}