create_destroy_child.tcl   [plain text]

puts "I'm running"
after 1000 
exit 0