sub IPsort {
    map inet_ntoa($_),
    IP_radix_sort
    map inet_aton($_),
    @_;
  }

##</code><code>##

    sub byip { inet_ntoa($a) cmp inet_ntoa($b) }

    foreach (sort byip @ip_list) ...