Select Code to Download

use strict;
use Sys::Info;
...
printf "There are %d CPUs\n"  , $cpu->count || 1;
printf "CPU load: %s\n"       , $cpu->load  || 0;
exit;

CPU: 2 x Intel(R) Pentium(R) 4 CPU 2.80GHz
CPU speed is 2801.015 MHz
There are 2 CPUs
CPU load: 0.21