(refers to Mel's Internet Toolkit)
To make any variable persistent throughout your application:
tk::session::setAttribute -name HOME -value "/home"
set home [tk::session::getAttribute -name HOME]
Take a look at "Login.tcl" file
now that's simple