perl -e '$clear=`clear`; system("who"),sleep 10,print $clear while 1'