sub nextIP {
   my ($ip) = @_;
   return $ip+1;
}