use strict;
use warnings;
use Net::Netmask;

my $block = Net::Netmask->new('192.168.1.128/25');
print "1st element: ", $block->nth(1), "\n";

print "last element: ", $block->nth(-2), "\n";

my $i = 1;
while (1) {
	print "ip adress #$i:", $block->nth($i), "\n";
	last 
	  if $block->nth($i) eq $block->nth(-2);
	$i++;
}