perl -le 'print "\e[2J\e[H", `who` and sleep 2 while 1'