RE: (jcwren) RE: (3) Net::Ping not working

[merlyn]

OK, if it's just a connect to 80, let's do this (again with less typing):

use IO::Socket;
for my $host(qw(www.slashdot.org www.deja.com www.perlmonks.org)) { 
  IO::Socket::INET->new("$host:80") or warn "cannot connect to web of 
+$host\n"; 
}

-- Randal L. Schwartz, Perl hacker