use Win32::Process;
my $currentProcess;
if (Win32::Process::Open($currentProcess, Win32::Process::GetCurrentProcessID(), 0)) {
$currentProcess->SetPriorityClass(BELOW_NORMAL_PRIORITY_CLASS);
} else {
  warn "Can not find myself ($^E)\n";
}