for (my $ii = 1; $ii <= 4; $ii++) {
	my @FileContents = `ipconfig`;
	my @UEinfo_fileContents = ReadFile($ue_file);
	my $FH = WriteFile($ue_file);
	my $lte_ip_address;

	foreach (@FileContents) {
		if ( $_ =~ /Address(.*):\s+([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/i )
		{
			my $ip_address = $2;
			$ip_address =~ s/\s+//gi;
			if ($ip_address =~ m/^11\.\d+\.\d+\.\d+/) {
				$lte_ip_address = $ip_address;
				foreach (@UEinfo_fileContents)
				{
					if ($_ =~ m/UEH\d+(.*)=\s+([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/i) {
					
						my $file_ip = $2;
						if ($file_ip =~ m/^11\.\d+\.\d+\.\d+/) {
						my $abc = "UEH".$ii . "_ip";
							if ($ip_address =~ m/$file_ip/) {
								
								print $FH "$abc" . " = $lte_ip_address\n";										
								last;
							}
							else{
								print $FH "$abc" . " = $lte_ip_address\n";
								last;
							}
						}
					}
				}
			}
		}
	}
				
			
	undef @UEinfo_fileContents;
	@UEinfo_fileContents = ReadFile($ue_file);

	foreach (@UEinfo_fileContents) {
		if ($_ =~ m/UEH\d+(.*)=\s+([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/i) {
			my $file_ip = $2;
			if ($file_ip =~ m/^11\.\d+\.\d+\.\d+/) {
				my $temp = 0;
				foreach (@FileContents)
				{
					if ( $_ =~ /Address(.*):\s+([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/i )
					{
						my $IP_address = $2;
						$IP_address =~ s/\s+//gi;
						if ($IP_address =~ m/^11\.\d+\.\d+\.\d+/) {
							if ($file_ip =~ m/$IP_address/) {
								$temp = 1;
								last;
							}
						
						}
					}
				}
				if ($temp == 0){
					print "$file_ip : Disconnect\n";
				}
			}
		}
	}
}