Win32::API->Import( 'Kernel32', q[HANDLE OpenThread( DWORD dwDesiredAccess, BOOL bInheritHandle, DWORD dwThreadId) ] );

$hThread = OpenThread(THREAD_SET_INFORMATION|THREAD_QUERY_INFORMATION,
                     FALSE, $point->{th32ThreadID});

Win32::API->Import( 'Kernel32', q[ BOOL SetThreadPriority( HANDLE hThread, int nPriority ) ] );

SetThreadPriority( hThread, $threadpriority );