Select Code to Download

# this code works
# loop.pl > loop.txt has > 0 bytes
...
            print "$host\n";
    }
}

use Net::Ping;

...
        }
    }
}