#!/usr/bin/perl -w
use strict;
use Cwd;
sub ScanDirectory{
        my ($workdir) = shift;
        my ($depth) = shift;  
        $depth++;
        my ($startdir) = &cwd;
        chdir($workdir) or die;
        opendir(DIR, ".") or die;
        my @names = readdir(DIR) or die;
        closedir(DIR);
        foreach my $name (@names) {
                next if ($name eq ".");
                next if ($name eq "..");
                        if (-d $name) { 
                                print &cwd."/".$name."\n";
                                &ScanDirectory($name, $depth) if $dept
+h <= 1;
                                next;
                        }
        }
        chdir($startdir);
}
&ScanDirectory(".",0);
[download]

my $dir  = shift || "client";
my @list = ();

for( glob "*$dir*" ){
    -d or next;
    for( glob "$_/*" ){
        -d or next;
        push @list, $_;
    }
}

$" = $/;

print "@list"

__END__
client1/DIR_1
client1/DIR_2
client1/DIR_3
client2/DIR_1
client2/DIR_2
client2/DIR_3
client3/DIR_1
client3/DIR_2
client3/DIR_3
[download]

You don't need the outer loop, because glob can take care of that implicitly. And you can also use grep instead of for to build the list:

my $dir  = shift || "client";
my @list = grep -d, glob "*$dir*/*";

$" = $/;
print "@list"
[download]

#         1         2         3
#123456789012345678901234567890123
 print join"\n",grep-d,glob(shift)
[download]

33 :)



holli, /regexed monk/

If you really want to use File::Find...

## start in the dir above your client dirs
use File::Find;
my @del_dirs;

find(\&del_dirs, '.');

sub del_dirs {
   return unless -d $_;
   return unless $File::Find::name =~ m{^\./.+?/.+}; # at least in pro
+ject level
   return if $File::Find::name =~ m{^\./.+?/.+?/.+}; # but no lower
   
   ### check for age or whatnot here, return if you don't want deletio
+n ###

   push @del_dirs, 'rm '.$File::Find::name;
}
[download]

my @del_dirs;
opendir primary, '.' or die $!;
foreach my $client (readdir primary) {
   opendir client, $client or die $!;
   foreach (readdir client) {
      ## check date, etc. use 'next' if you want to keep
      push @del_dirs, 'rm '.$client.'/'.$_;
   }
   closedir client;
}
closedir primary;
[download]

In either case, your delete list ends up in @del_dirs;

The glob-based solutions above would work, too, but readdir tends to be faster than glob.