中途半端にCPU使用率を上げるPerlワンライナー

$ perl -MTime::HiRes -e 'while(1){for(1..10000){};Time::HiRes::sleep(0.0001)}'