my @socks;
for my $host (@hosts) {
  my $sock = IO::Socket::INET->new(PeerAddr => $host,
                                   PeerPort => 80);
  die "$host failed: $!" if ! $sock;

  print $sock "GET $path HTTP/1.0\r\nHost: $host\r\n\r\n";
  push @socks, $sock;
}

my $sum = 0;
for my $sock (@socks)
  local $/ = '';
  my $resp = <$sock>
  $sum += parse_resp($resp);
}