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