perl -e '$ip="192.168.10.2"; $mask="255.255.254.0"; @maskbyte=split /\./,$mask; @ipbyte=split /\./, $ip; for($i=0;$i<4;$i++) { $b1=$maskbyte[$i]+0; $b2=$ipbyte[$i]+0;$NetByte=$b1&$b2; if($i != 0) {$NetAddr = $NetAddr . "." . $NetByte; } else { $NetAddr=$NetByte ;}} print "$NetAddr\n";'

##</code><code>##

perl -e '$ip="192.168.10.0"; $mask="255.255.254.0"; @maskbyte=split /\./,$mask; @ipbyte=split /\./, $ip; for($i=0;$i<4;$i++) { $b1=$maskbyte[$i]+0; $b2=$ipbyte[$i]+0;  $NetByte=$b2 || ~$b1 ;  if($i != 0) {$NetAddr = $NetAddr . "." . $NetByte; }else { $NetAddr=$NetByte ;}} print "$NetAddr\n";'