open(F,'C:\Temp\ipconfig.txt') || die "error($!)";
while(<F>)
	{
	if(/IP Address/)
		{
		@split0= split(/ /, $_);
 		@MYIP0=(@MYIP0,@split0);
		}

	if(/Gateway/)
		{
		@split1=split(/ /, $_);
		@MYGATEWAY0=(@MYGATEWAY0,@split1);
		}
	$i++;
	}
foreach(@MYIP0)
{
if(/\b\d*\.\d*\.\d*\.\d*/)
		{
		@MYIP1=(@MYIP1, $_);
		}

}	
foreach(@MYGATEWAY0)
{
if(/\b\d*\.\d*\.\d*\.\d*/)
		{
		@MYGATEWAY1=(@MYGATEWAY1, $_);
		}

}
	
my $ff="$MYIP1[0]"; 
my $fk="$ff:255.255.255.0";
$block4 = new2 Net::Netmask($fk);
print $block4->size();