#!/usr/local/bin/perl -w

use Sys::Statistics::Linux::CpuStats;
use strict;

my $c;
my $lxs = Sys::Statistics::Linux::CpuStats->new;
$lxs->init;
sleep 2;
++$c while ($c<100_000); # do something now

my $stats = $lxs->get;

for my $i (sort keys %{$stats}){
    print "$i\n";
    for my $j (sort keys %{$stats->{$i}}){
	print "$j ", $stats->{$i}->{$j},"\n";
    }
}
__END__

En realidad todos los módulos de Sys::Statistics::Linux son interesantes
  
BUGS
  
No parece que la granularidad sea muy buena, pero debe depender del kernel