Take a look on Sys::Info::Device::CPU. It might be what you want, to insert random sleeps if CPU load passes a given treshold for example.