[Quest API] Add GetUltimateOwner() to Perl/Lua. (#2516)

# Perl
- Add `$mob->GetUltimateOwner()` to Perl.

# Lua
- Add `mob:GetUltimateOwner()` to Lua.

# Notes
- Allows operators to get ultimate owner of something like a pet's pet or a pet's swarm pet.

zone/lua_mob.h

@@ -206,6 +206,7 @@ public:
 	void SpellEffect(Lua_Mob caster, int spell_id, double partial);
 	Lua_Mob GetPet();
 	Lua_Mob GetOwner();
+	Lua_Mob GetUltimateOwner();
 	Lua_HateList GetHateList();
 	Lua_HateList GetShuffledHateList();
 	Lua_HateList GetHateListByDistance();