tcl与卷曲代码400

Question

使用tcl：

循环时，curl linux命令出现问题

for {set i 0} {$i<20} {incr i} {
   if {[catch {set x [exec curl -x 192.168.254.1:8081 -w "%{http_code}" "http://www.playboy.com"]} y]} {
            puts "$y"
   } else {
            puts "$x"
   }
}

我希望收到一个403 http代码，但有时它可以工作，它提供了403代码，但有时它给了我400代码，我不期望。 Http代码400用于错误的请求，因为格式错误。

有人知道为什么以及如何解决这个问题？