Select Code to Download

sub dir_names
{
...
#    $dirs{$File::Find::name} = 1;
    ++$dirs{$File::Find::name};
}