use strict;
use warnings;
use Net::Netmask;
$block = Net::Netmask->new('192.168.1.128/25');
print "Base address: ", $block->base(), "\n";
print "Broadcast address: ", $block->broadcast(), "\n";
print "Net mask: ", $block->mask(), "\n";
print "Host mask: ", $block->hostmask(), "\n";
print "Bits: ", $block->bits(), "\n";
print "Size: ", $block->size(), "\n";
print "2:nd element: ", $block->nth(2), "\n";