Select Code to Download

my $base_directory = $ARGV[0];

...
    my @config_directories = grep { $_ ne '.' and $_ ne '..' } readdir
+ C_DIR;
    close C_DIR;
    print "@config_directories\n";