Evaluated proc down {host {port 80}} {catch "wget http://$host:$port" cum; if {$cum == "eof"} {return 0} {return 1} }