Help for this page
sub dir_names { ... $dirs{$File::Find::name} = 1; ++$dirs{$File::Find::name}; }
C:\Temp\hddzip>perl dirpathdupes.pl C:\Temp/Alcohol/P12345678 ... C:\Temp/P12345678 C:\Temp/harddrives/P12345678 C:\Temp/hddzip/P12345678