#
# Thread script
#

load /usr/local/lib/libthread2.1.so
load /usr/local/lib/setuid.so

setuid 20

fileevent $channel readable "AA $channel"
after 1000 "puts {after OK}"

proc AA {channel} {
    if {[gets $channel line] < 0} {
	after idle "close $channel"
    } else {    
	puts $channel "Thread OK"
	flush $channel
    }
}
