use Time::HiRes 'usleep';$|=1;for(;;){$_=(int rand 9)/2;if(/\.5/){print"wub "}else{print"wooo "}usleep 100000}