Select Code to Download

sub scan_host {
    while( my( $ip )= $hosts->dequeue() ) {
...
for( 1..$NUM_THREADS ) {
    threads->create( \&scan_host );
};

$hosts->end;

while(my $result= $portstatus->dequeue()) {
    print Dumper $result;
};