PHP код:
function get_la()
{
$out = exec("uptime");
preg_match("#load average:(.*)#", $out, $match);
return explode(",",$match[1]);
}
Возвращает массив значений LA - мгновенная нагрузка, в течении последних 5 минут и 15.
UPD упс, перл, не увидел. Но принцип, думаю, понятен.