I kinda new to tcl coding but by searching this great forum i mangare to almost made it work bind pub "-|-" !pp ping_proc proc ping_proc {nick uhost handle channel arg} { set nr [lindex $arg 0] set target [lindex $arg 1] set i [exec /bin/ping -c $nr $target] fileevent $i readable "out...