do (client_reg.pl); $debug =0; ##### read in config file ############################## $SvcConfFile1 = 'LogUpdater_conf.conf'; open(IN,"<:utf8", "$SvcConfFile1") || print "Unable to open $SvcConfFile1"."\n"; while () { chop($_); eval $_; } ################################################ # populate the regkeyarray getClientListFromReg($SAVCLIENTKEY); print %regKey_array;