$csv->print ($cvsfh, [
         $File::Find::name,
         $_,
         (stat($File::Find::name))[7],
         $ids{ $parent },
         (stat($File::Find::name))[9],
       ]);