Posted to tcl by partymola at Thu Mar 29 14:31:58 GMT 2007view pretty

% set NAME "John Doe"
John Doe
% proc test {} {
    set latribs "name surname"
    global [string toupper $latribs]
    set NAME "Paul Allen"
  }
% test
Paul Allen
% puts $NAME
John Doe