my $base_directory = $ARGV[0];

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

foreach my $client (@client_directories)
{
    open(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";