use Sys::Info;
use Sys::Info::Constants qw( :device_cpu );
use Sys::Info::Driver::Unknown::Device::CPU; # for cygwin (?)

my $info = Sys::Info->new;

# alternative 1 http://search.cpan.org/~burak/Sys-Info-Base-0.7804/lib/Sys/Info/Device/CPU.pm
my $cpu  = $info->device( CPU => %options ); #line 19

# alternative 2
$info->device( 'CPU' );

printf "CPU freq %s MHz\n", $cpu->speed; #line 22
printf "%d CPUs\n"  , $cpu->count ;