Select Code to Download

## start in the dir above your client dirs
use File::Find;
...

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

my @del_dirs;
opendir primary, '.' or die $!;
...
   closedir client;
}
closedir primary;