Here's a patch for Win32 (or other case-insensitive file systems?) to catch duplicates w/ different case -
add this as line 15 before the "print (((-d ..."

$dirs[$_] = lc ($dirs[$_]) if $^O eq 'MSWin32';
[download]