Code:

load /opt/tcl/lib/udp1.0.5/libudp1.0.5.sobind dcc n| rcon dcc:sockproc udp_read {socket} {        putlog "rcv"        while {[gets $socket line] >= 0} {                putlog "$line"        }        close $socket}proc dcc:sock {hand idx text} {        if {[llength $text] < 2} {                putdcc $idx "Usage: sock <ip> <port>"                return        }        set host [lindex $text 0]        set port [lindex $text 1]        set s [udp_open]        udp_conf $s $host $port        puts $s "ÿÿÿÿrcon rconpassword g_password test"        putdcc $idx "sending rcon cmd"        fconfigure $s -buffering full -translation auto        fileevent $s readable [udp_read $s]}