#! perl -slw
use strict;
use Win32::Process;

Win32::Process::Open( my $hProcess, $$, 0 ) or die $^E;
$hProcess->SetPriorityClass( THREAD_PRIORITY_IDLE );
undef $hProcess;

print "Check priority of process $$ in Task Manager";
<STDIN>;