use Win32::SystemInfo::CpuUsage;
my $intvl = 1000;     # in milliseconds
my $usage = Win32::SystemInfo::CpuUsage::getCpuUsage($intvl);
  
my $i = 0;
while($i < 5)
{ #query 5 times
  $i++;
  $usage =        Win32::SystemInfo::CpuUsage::getCpuUsage($intvl);
  print "$i: cpu usage $usage\n";
}