#!/usr/bin/perl -wT
#-*-perl-*-

use strict;
use Net::Netmask;

my $block=new Net::Netmask( $ARGV[0] );

if ($block->match( $ARGV[1] ) ) { 
  print $ARGV[1] , " exists in " , $ARGV[0] , "\n";
}

else {
  print "CIDR         = " , $block->desc() , "\n";            # a.b.c.d/bits
  print "IP Address   = " , $block->base() , "\n";
  print "Netmask      = " , $block->mask() , "\n";
  print "Hostmask     = " , $block->hostmask() , "\n";
  print "Mask bits    = " , $block->bits() , "\n";
  print "Subnet size  = " , $block->size() , "\n";
  print "Max netmask  = " , $block->maxblock() , "\n";
  print "Broadcast    = " , $block->broadcast() , "\n";
  print "Next netmask = " , $block->next() , "\n";
  print "First host   = " , $block->nth(1) , "\n";
}