if (connect(S,$s)) {
  print "connected to $host\n";
  print S "GET \/ HTTP\/1.0\n\n";
  read(S,$data,100) || die "Error Reading: $!\n";
  close(S);
} else { die "connect failed: $!\n" }