alias socktest { sockclose socktest | sockopen socktest scriptsurge.org 80 }
on *:sockopen:socktest:{ 
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: scriptsurge.org
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname
}
on *:sockread:socktest:{
  var %data | sockread %data
  tokenize 32 %data 
  inc %socktest_line
 
  if (%socktest_line == 8) { 
    echo -a $1-
  }
}
on *:sockclose:socktest:{ unset %socktest_line }