perl -e"$|++;print(qq[\r(  )]),select('','','',.1),print(qq[\r=()=]),select('','','',0.2) while 1"