Help for this page
$dirs{$File::Find::dir} = 1;
++$dirs{$File::Find::dir};
$dirs{$File::Find::name} = 1;