exec clear >@ stdout
eval exec [auto_execok cls]
puts \x1B\[2J ; # for Solaris xterm
exec command /c cls ; # DOS?
exec >&@stdout $::env(COMSPEC) /c cls ; # Win95
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&th=57f93208a1685681
Pretty neat tricks ;)' Ro