Select Code to Download

    if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
        {$VARDB_database = $line;   my $VARDB_database =~ s/.*=//gi;}

use strict;
use warnings;
...
my $i=0;
foreach(@conf){
    my $line = $conf[$i];