alias test {
  sockclose test
  sockopen test rss.cnn.com 80
}

on *:SOCKOPEN:test: {
  sockwrite -n $sockname GET /rss/cnn_topstories.rss HTTP/1.1 
  sockwrite -n $sockname Host: rss.cnn.com $+ $crlf $+ $crlf
}

on *:SOCKREAD:test: {
  sockread %var 
  if ($sockerr) {
    echo -a Error.
    halt
  }
  if (*<title>CNN.com* iswm %var) {
    halt
  }
  if (%var2 == 2) {
    sockclose test
    unset %var
    unset %var2
  }
  if (*<title>* iswm %var) { 
    set %vartitle %var
  }
  if (*<guid* iswm %var) {
    set %varlink %var
    inc %var2
    echo -a $htmlfree(%vartitle) - $htmlfree(%varlink)
    unset %vartitle | unset %varlink
  }
}

on *:sockclose:test:{
}

alias rss {
  set %var2 0
  test
}

alias -l htmlfree {
  var %x = "", %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
  return %x
}