Code:
alias getproxies {
  window -h @gprox
  clear @gprox
  sockclose gprox
  sockopen gprox proxycn.net 80
  echo $color(info) -a * Retrieving proxy list...
}
 [color:red]  [/color] 
on *:sockopen:gprox:{
  if ($sockerr) { 
    echo $color(info) -a * /getproxies: error opening socket 
    window -c @gprox
    return 
  }
  var %s = sockwrite -n gprox
  %s GET /proxy_irc/page1.htm HTTP/1.1
  %s Host: www.proxycn.net $str($crlf,2)
}
 [color:red]  [/color] 
on *:sockread:gprox:{
  if ($sockerr) return
  var %a, %token
  sockread %a
  while ($sockbr) {
    %token = $remove($gettok(%a,1,32),</td>)
    if (*.*.*.* iswm %token) sockmark gprox %token
    elseif (%token isnum) && ($sock(gprox).mark) {
      sockmark gprox $ifmatch %token
    }
    elseif (%token isalpha) && ($isupper(%token)) {
      aline @gprox $sock(gprox).mark %token
      sockmark gprox
    }
    sockread %a
  }
}
 [color:red]  [/color] 
on *:sockclose:gprox:{
  savebuf @gprox proxylist.txt
  window -c @gprox
  echo $color(info) -a * /getproxies: finished retrieving proxies
}

Gone.