#!/usr/bin/perl -w

use strict;
use File::Find;

find(\&wanted,'.');

use vars qw(%dirseen);
sub wanted
{
  return unless -d $_;

  if ($dirseen{$_})
  {
    print "Duplicate directory name $_ in $File::Find::dir\n";
  }
  $dirseen{$_}++;
}