perl -e 'print `clear`,`who` and sleep 2 while 1'