Softabar

function getheaders($server, $port, $file,$originalurl)
{
   $cont = "";
   $ip = gethostbyname($server);
   $fp = fsockopen($ip, $port);
   if (!$fp)
   {
       return 'Can not open URL: '.$originalurl.'.';
   }
   else
   {
       $request= "GET $file HTTP/1.1\r\n";       
       $request.="Accept: */*\r\n";
       $request.="Accept-Language: *\r\n"; 
       $request.="User-Agent: RetrieveHTTPHeaders/0.1\r\n";
       $request.="Host: $server:$port\r\n" ;
       $request.="Connection: Close\r\n";
       $request.="\r\n";
       
       fputs($fp, $request);
       while (!feof($fp))
       {
           $cont .= fread($fp, 500);
       }
       fclose($fp);
       $cont = substr($cont, 0, strpos($cont, "\r\n\r\n") + 4);
       return $cont;
   }
}