use LWP::Simple;
for my $host(qw(www.slashdot.org www.deja.com www.perlmonks.org)) {
  get "http://$host/" or warn "cannot get top page of $host\n";
}