getloadavg() を呼び出す XS を作るしかないかなぁ（cf. perldoc perlxs）．
暴走してる時の speedy_backend の core イメージを取っておけば何か手がかりにはなるのかも......