use Win32::Process qw( HIGH_PRIORITY_CLASS );

Win32::Process::Open(my $proc, $$, 0)
   or die($^E);

$proc->SetPriorityClass(HIGH_PRIORITY_CLASS)
   or die($^E);