Help for this page

Select Code to Download

Select or download this
```
$dirs{$File::Find::dir} = 1;
```
Select or download this
```
++$dirs{$File::Find::dir};
```

Select or download this

my @dup_dirs = grep { $dirs{$_} > 1 } keys %dirs;