sub initilize_config
{
    my ($HR_config,$file) = @_;
    open (my $fr, '<', "$file") || die "Unable to open configuration file: $file $!";
    while (my $line = <$fr>)
    {
        $line =~ tr/\r\n//d;
        next unless $line;
        if ($line =~ /=/)
        {
            my ($key,$val)=$line=~ /^(.*?)=(.*?)$/;
            $$HR_config{$key} = $val;
        }
    }
}