if ($^O eq 'MSWin32')
{
	# eval
	{
		# use Win32::Process;
		require Win32::Process; import Win32::Process;

		my $obj;
		if (Win32::Process::Open($obj, Win32::Process::GetCurrentProcessID(), 0))
		{
			$obj->SetPriorityClass(THREAD_PRIORITY_BELOW_NORMAL);
		}
	};
}