Any tcl code that shows the open ports of an ip for bot Eggdrop.