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"; 
}