Same as the original SockHTML, but edited.

alias sockhtml {
  if ($sock(sockhtml)) sockclose sockhtml
  sockopen sockhtml $1 80 
  set -u50 %host $1
} 
on *:sockopen:sockhtml:{
  if ($sockerr > 0) return
  sockwrite $sockname GET $2 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ User-Agent: SockHTML $+ $crlf $+ Host: %host $+ $crlf $+ Connection: Close $+ $crlf $+ $crlf
}
on *:SOCKREAD:sockhtml:{
  if ($sockerr > 0) return
  var %read
  while ($sockbr > 0) {
    sockread %read
    if (%read) echo -a %read
  }
  sockread %read
}