sub get_config {
    my %config;
    open (CONFIG, "$CONFIG_FILE") or die "Error: $!\n";
    while (my $line = <CONFIG>){
	#  verbose($line);
	chomp($line);

	if($line =~ m/WORKING_DIR=(.*)/){
	    $config{"workingDir"} = $1;
	    verbose("Working Dir: ".$config{"workingDir"}."\n");
	}elsif($line =~ m/INPUT_FILE=(.*)/){
	    $config{"inputFile"} = $1;
	    verbose("Input File: ".$config{"inputFile"}."\n");
	}elsif($line =~ m/MAP_FILE=(.*)/){
	    $config{"mapFile"} = $1;
	    verbose("Map file: ".$config{"mapFile"}."\n");
	}
    }
	
	close(CONFIG);
	
	return %config;
}



##</code><code>##


WORKING_DIR=/root/working/
INPUT_FILE=test.in
MAP_FILE=test.map