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;