use Capture::Tiny 'capture';
use Win32::Process::CpuUsage;
my ($out, $err) = capture {
 my ($pid, $interval, $counts) = (4800, 1000, 3);
 my $rs = Win32::Process::CpuUsage::GetProcessCpuUsage($pid, $interval, $counts, $prcCPU, $sysCPU);
};
print "result: $out\n";