$returncode=Win32::Process::Open($obj,$pid,0);
print "\n $returncode \n";
$returncode=$obj->SetPriorityClass(THREAD_PRIORITY_LOWEST);
print "\n $returncode \n";