sub subnet_recurse {

my $netaddr_ref = shift;
my $endaddr_ref = shift;
my $new_addmask;

##</code><code>##

print "<hr><b>base: " . $$netaddr_ref->network() "</b><br>";
my $hostnum = 0;

foreach ($$netaddr_ref->hostenum()){
 print "add$hostnum: " . $_ ."<br>";
 $hostnum++;
 }
print "<b>brdc:".$$netaddr_ref->broadcast()."</b><br><hr>";

##</code><code>##

my $net_broadcast =  
 NetAddr::IP->new($$netaddr_ref->broadcast()->addr());

##</code><code>##

my $new_netaddr=NetAddr::IP->new($net_broadcast->addr())+1;

##</code><code>##

print "<b>brd: " . $net_broadcast->addr() ."</b><br>";

#print "<b>new: " . $new_netaddr->addr() . "</b><br>";
#if( $new_netaddr->within($$endaddr_ref) ){
#       subnet_recurse( \$new_netaddr, $endaddr_ref );
#} else { return; }
return;
}

##</code><code>##

host: 192.168.1.0/29
mask: 255.255.255.248
base: 192.168.1.0/29
add0: 192.168.1.1/32
add1: 192.168.1.2/32
add2: 192.168.1.3/32
add3: 192.168.1.4/32
add4: 192.168.1.5/32
add5: 192.168.1.6/32
brdc: 192.168.1.7/29
192.168.1.7/32brd: 192.168.1.7