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

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

参考

• CPU使用率を 100% にする Perl ワンライナー - ablog