$conn = fsockopen ('whois.verisign-grs.com', 43, $errno, $errstr, 1);
  fputs($conn, $domain."\r\n");
  while(!feof($conn)) 
	$output .= fgets($conn,128);
  $registrar = reset(explode("\n",end(explode('Registrar:',$output))));