# .5 and .33 are the only two up atm.
my @hosts = map "10.0.0.$_", 3..7,31..35;

##</code><code>##

>c:\progs\perl5100\bin\perl parallel_ping.pl
-3300 is processing 10.0.0.3
-3308 is processing 10.0.0.4
-1456 is processing 10.0.0.5
-2780 is processing 10.0.0.6
-3368 is processing 10.0.0.7
-3024 is processing 10.0.0.31
-2400 is processing 10.0.0.32
-2944 is processing 10.0.0.33
-400 is processing 10.0.0.34
-1108 is processing 10.0.0.35
reaping -1456 for 10.0.0.5
reaping -2944 for 10.0.0.33
reaping -3300 for 10.0.0.3
reaping -1108 for 10.0.0.35
reaping -3024 for 10.0.0.31
reaping -3368 for 10.0.0.7
reaping -3308 for 10.0.0.4
reaping -2400 for 10.0.0.32
reaping -400 for 10.0.0.34
reaping -2780 for 10.0.0.6
10.0.0.3 is bad
10.0.0.31 is bad
10.0.0.32 is bad
10.0.0.33 is good
10.0.0.34 is bad
10.0.0.35 is bad
10.0.0.4 is bad
10.0.0.5 is good
10.0.0.6 is bad
10.0.0.7 is bad