sub ip_to_num {
  my $ip = shift;
  my $n;
  $n = $n*256+$_ for (split /\./,$ip);
  $n
}