Help for this page
Win32::API::->Import( "user32", "DWORD GetWindowThreadProcessId( HWND hWnd, LPDWORD lpdwPr +ocessId)" ) or die $^E;