Is there any function to increment the network address

You can always do it yourself:

# untested!
sub net_inc {
  my $n = shift;
  my $inc = (1 << (32 - $n->masklen));
  return $n + $inc
}
[download]