use Win32::Process; my $obj; Win32::Process::Open($obj, $$, 0); $obj->SetPriorityClass(HIGH_PRIORITY_CLASS);