use Socket;
sub add_to_ip($$)
{
  my( $ip, $add ) = @_;
  inet_ntoa pack( 'N', unpack('N',inet_aton $ip) + $add )
}