perl -e 'system("who"),sleep 10 while 1'

##</code><code>##

perl -e 'system("who"),sleep 10,system("clear") while 1'