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]