bind test - !test pub:test

proc pub:test {nick uhost handle chan arg} {
 set binary {/tmp/list.sh}
 set section [lindex $arg 0]
 foreach line [split [exec $binary $section] "\n"] {
      putquick "PRIVMSG $chan :$line"
 }
}