http://www.perlmonks.org?node_id=1051979

I'm pretty new to golf but this is the best i could do. I would like to see how you would fit this is fewer chars I'm sure theres one way or an other.

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

thanks.