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