Select Code to Download

open(CONF, '<conf-main.txt')
    or die "Can't open file: $!";
...
        $config{$setting} = $line;
    }
}

use Data::Dumper;
print Data::Dumper::Dumper \%config;

my $type_match = qr/#DO\s+$config{'type'}/i;
foreach my $script_file ( @{ $config{'scripts'} } ) {
...
        }
    }
}