Help for this page
#! perl -slw use strict; ... $_->join for @threads;
sub ip2n{ unpack 'V', pack 'C4', split '\.', $_[ 0 ] }