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 ;

##</code><code>##

# alternative 1
Global symbol "%options" requires explicit package name at pcData.pl line 19.
Execution of pcData.pl aborted due to compilation errors.

#alternative 2
Odd number of elements in hash assignment at /usr/lib/perl5/site_perl/5.14/Sys/Info/Driver/Unknown/Device/CPU/Env.pm line 26.
Use of uninitialized value $family in hash element at /usr/lib/perl5/site_perl/5.14/Sys/Info/Driver/Unknown/Device/CPU/Env.pm line 86.
Use of uninitialized value in printf at pcData.pl line 22.