do{ print 0==$a++%2 ?"Core Meltdown!\r" : " \r"; sleep 1} while 1;