title: getting url using http post method in tcl 8.0
body: <p>I'm trying to get some urls using post method in tcl 8.0.</p>
  
  <p>it doesn't print any output.</p>
  
  <p>here is chunk of my code.</p>
  
  <pre><code>foreach sKey [array names aQuery] {                                        
      set sValue $aQuery($sKey)                                              
      append sQueryString "[::http::formatQuery $sKey $sValue]&amp;"                                  
  }                                                                          
  
  set sQueryString [string trim $sQueryString "&amp;"]                           
  
  set sToken [::http::geturl $sUrl -query $sQueryString -channel stdout] 
  
  ::http::wait $sToken                                                   
  
  upvar #0 $sToken state                                                     
  
  foreach sKey [array names state] {                                         
      puts "$sKey $state($sKey)"                                             
  }      
  </code></pre>