Select Code to Download

use CGI qw(:standard);    # you already have this
use CGI::Carp;
use CGI::Carp qw(fatalsToBrowser);
local $SIG{__WARN__} = \&Carp::cluck;

use Net::Ping;
my @protocols = qw(icmp tcp);
my @host_array = ("www.google.com",
...
   }
   $p->close();
}

With icmp, www.google.com does respond
With icmp, irc.webchat.org does respond
With icmp, 64.177.244.76 does respond
With tcp, www.google.com does NOT respond
With tcp, irc.webchat.org does NOT respond
With tcp, 64.177.244.76 does NOT respond