How to insert sleep for 30 seconds in tcl script?

You have to use

after 30000

The argument to after is interpreted as milliseconds.
While asking a question, if you insert your code, that will be useful for others.