foreach my $client (@client_directories)
{
    opendir(C_DIR, "$base_directory/$client") or die "Could not open client directory $base_directory/$client: $!\n";
    my @config_directories = grep { $_ ne '.' and $_ ne '..' } readdir C_DIR;
    close C_DIR;
    print "@config_directories\n";