Help for this page

Select Code to Download

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

Select or download this

#!/usr/bin/perl
# dirdupes
...
    return if ! -d || ! /[IPD]\d{8}$/;
    push @{$dirs{$_}}, $File::Find::name;
}