use strict;

use Win32::API;

my $CpuSpeed ||= Win32::API->new
("cpuinf32", "cpuspeed", [], "I")
 or die "Could not load DLL\n";

my $aInfo = $CpuSpeed->Call();
my $pInfo = pack("L",$aInfo);
my $sInfo = unpack("P16",$pInfo);
my ($in_cycles, $ex_ticks, $raw_freq, $norm_freq) =
  unpack("L4",$sInfo);

print "In cycles: $in_cycles\n";
print "Ex ticks: $ex_ticks\n";
print "Raw freq: $raw_freq\n";
print "Norm freq: $norm_freq\n";