Hi, i was doodling around with an alias that creates a click to tweet link, and although it does work, it takes up to 15 seconds for me to receive a response from the server. So i was wondering if anyone notices anything wrong/missing from my script that causes that

Code:
alias newTweet {
  set %tweetmsg tweet= $+ $urlencode($1-) $+ &submit=Generate+New+Link
  sockclose newTweet
  sockopen -e newTweet clicktotweet.com 443
}

on *:sockopen:newTweet:{
  if ($sockerr) { return }
  sockwrite -n $sockname POST /link/basicSubmit? $+ %tweetmsg HTTP/1.1
  sockwrite -n $sockname Host: clicktotweet.com
  sockwrite -n $sockname Content-Length: $len(%tweetmsg)
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:sockread:newTweet:{
  var %tweetread
  sockread -f %tweetread
  write tweetread.txt %tweetread
}

on *:sockclose:newTweet:{
  var %tweetID = $remove($read(tweetread.txt,9),location: /basic/)
  echo -s Acquired response from server: www.clicktotweet.com/ $+ %tweetID
  unset %tweetmsg
  remove tweetread.txt
}

alias UrlEncode return $regsubex($1-,/([^\d\w])/g,$+(%,$base($asc(\t),10,16)))


If you see anything off (apart from my easymode sockread event) please let me know!