Select Code to Download

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=$maskbyt
+e[$i]+0; $b2=$ipbyte[$i]+0;$NetByte=$b1&$b2; if($i != 0) {$NetAddr = 
+$NetAddr . "." . $NetByte; } else { $NetAddr=$NetByte ;}} print "$Net
+Addr\n";'

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=$maskbyt
+e[$i]+0; $b2=$ipbyte[$i]+0;  $NetByte=$b2 || ~$b1 ;  if($i != 0) {$Ne
+tAddr = $NetAddr . "." . $NetByte; }else { $NetAddr=$NetByte ;}} prin
+t "$NetAddr\n";'