Editing Transcendence Victory Quest

[Starrynite120]

I'm trying to edit the Transcendence victory quest to add a playerperk upon completion (I have set victory to false so it no longer ends the game). Unfortunately, I cannot get it to work.

Before editing, the end looks like this

	elseif (quest.PersistentData.Stage == Stages.End) then

		quest:SetProgress(100);
		quest:SetReward("TXT_KEY_QUEST_VICTORY_TRANSCENDENCE_REWARD");
		quest:Succeed();
	else

		error("Transcendence Victory: Invalid quest stage.");
	end
end

After I edit it it looks like this

	elseif (quest.PersistentData.Stage == Stages.End) then
		local Perk = GameInfo.PlayerPerks["PLAYERPERK_STARRYNITE_VICTORY_TRANSCENDENCE"].ID;
		quest:SetProgress(100);
		quest:SetReward("TXT_KEY_QUEST_VICTORY_STARRYNITE_TRANSCENDENCE_REWARD");
		quest:Succeed();
		player:AddPerk(Perk);
	else

		error("Transcendence Victory: Invalid quest stage.");
	end
end

Also, I defined the given playerperk here (the free energy is so I can tell if its working or not).

	<PlayerPerks>
		<Row>
			<Type>PLAYERPERK_STARRYNITE_VICTORY_EMANCIPATION</Type>
			<Help>TXT_KEY_STARRYNITE_PLAYERPERK_PLAYERPERK_VICTORY_EMANCIPATION_HELP</Help>
			<FreeEnergy>100000</FreeEnergy>
		</Row>
		<Row>
			<Type>PLAYERPERK_STARRYNITE_VICTORY_PROMISED_LAND</Type>
			<Help>TXT_KEY_STARRYNITE_PLAYERPERK_PLAYERPERK_VICTORY_PROMISED_LAND_HELP</Help>
		</Row>
		<Row>
			<Type>PLAYERPERK_STARRYNITE_VICTORY_TRANSCENDENCE</Type>
			<Help>TXT_KEY_STARRYNITE_PLAYERPERK_PLAYERPERK_VICTORY_TRANSCENDENCE_HELP</Help>
			<FreeEnergy>100000</FreeEnergy>
		</Row>
		<Row>
			<Type>PLAYERPERK_STARRYNITE_VICTORY_CONTACT</Type>
			<Help>TXT_KEY_STARRYNITE_PLAYERPERK_PLAYERPERK_VICTORY_CONTACT_HELP</Help>
		</Row>
	</PlayerPerks>

I'm stumped as to why its not working. I have set VFS to true, and I tried adding the script as both Quest and InGameUIAddIn, but neither have given the playerperk.

Any thoughts?