Select Code to Download

my $i = 3; # how many simultaneous checks
...
        }
    }
}

foreach my $remote (@iplist){
    foreach my $port (@iprange){
...
        }
    }
}