#!/usr/bin/perl
$ModFile = $ARGV[0];
$Setting = $ARGV[1];

open FH, ">$ModFile" or die "Cannot open $ModFile.\n";
while (<FH>)
{
	if($_ =~ /^Identity/i)
    {
	    chomp($_);
            /=(.*?)$/;
            ####$1 contains everything after =; but dont #know how to replace it.

    }
}