alias readit {
  //sockclose ms
  sockopen ms pwnt.dk 80
}
on *:sockopen:ms: {
  sockwrite -n $sockname GET /sam_plusfm/test HTTP/1.1
  sockwrite -n $sockname Host: pwnt.dk
  sockwrite -n $sockname $crlf
  sockwrite -n $sockname Connection: Keep-Alive 
}
on *:sockread:ms: {
  /sockread %asd
  if (*Next:* iswm %asd) { /echo -a 4**** $nohtml(%asd) **** }
  /unset %asd
}
alias nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}