my $base = sysctl('kern.clockrate')->{'stathz'};
my $count = sysctl('hw.ncpu');
my $period = 2;
my @start = @{sysctl('kern.cp_times')};
sleep($period);
my @end = @{sysctl('kern.cp_times')};
foreach my $i (0..$count)
{
	my @time = splice(@end,0,5);
	$time[$_] -= $start[$_] foreach (0..$#time);
	splice(@start,0,5);
	$time[$_] = $time[$i]/($period*$base) foreach (0..$#time);
	print Dumper(\@time);
}