Select Code to Download

#! perl -slw
use strict;
...

$_->join for @threads;

sub ip2n{ unpack 'V', pack 'C4', split '\.', $_[ 0 ] }