my $line;
		open (FILEHANDLE, "<$new");
		open (OUT, ">$new.bak") ;
		while ($line = <FILEHANDLE>)
		{
			$line =~ s/66/$goodrow->{'ClientID'}/g;    
			$line =~ s/0906\s406\s2427/$SIMCard/g;  
			print "$line<br>";
			print (OUT $line);
			print (FILEHANDLE $line);
		
		}
		close FILEHANDLE;
		close OUT;