rmdir

[Porter, Chris]

Hi, was hoping someone could help.
I want to remove some directories:
.Any help would be greatly appreciated.
Basically, I want to remove all directories with Capital letters in this
directory.  Make sense.
Here is my script, looks like it's working but it's not removing all the
directoriesopendir(HERE, '.');

 @AllFiles = readdir(HERE);

 foreach $Name (@AllFiles) {

   if (-f $Name) {next}

   if ((-d $Name) and ($Name =~ /^[A-Z]+$/)) {rmdir '$Name'}

Thanks.

Chris