Your headers:<p>
<?
$headers = getallheaders();
foreach ($headers as $name => $content) {
    echo "$name = $content<br>\n";
}
if (empty($port)) $port="80";
?>
<hr>
<form action="" method=post>
host (without http)
<input name=hostname value=>
URL:
<input name=url value=>
PORT:
<input name=port value=>
<input type=submit>
</form>

<?
if (empty($hostname)) exit;
if (empty($url)) $url="/";


//$fd=fopen("http://".$hostname,"w") ;
$cmd="/bin/echo \"HEAD $url HTTP/1.0\n\n\"|/usr/local/bin/socket $hostname $port";
$fd=popen($cmd,"r");
echo $cmd;
echo "<p>";


//$query= "HEAD ".$url." HTTP/1.0 \r\n\r\n"; 
//echo $query;
fputs($fd, $query);

$i=0;
while (!feof ($fd) && $i++<100) {
    $buffer = fgets($fd, 4096);
    echo $buffer."<br>";
}
pclose ($fd);