diff --git a/Perl-API.md b/Perl-API.md
index 745d39f..b885a17 100644
--- a/Perl-API.md
+++ b/Perl-API.md
@@ -742,11 +742,11 @@ $client->WorldKick()
 # Corpse
 
 ```perl
-$corpse->AddItem(itemnum, charges, slot)
-$corpse->AddLooter(who)
-$corpse->AllowMobLoot(them, slot)
-$corpse->CanMobLoot(charid)
-$corpse->CastRezz(spellid, Caster)
+$corpse->AddItem(uint32 item_id, uint16 charges, [unt16 slot = 0])
+$corpse->AddLooter(mob* who)
+$corpse->AllowMobLoot(mob* them, uint8 slot)
+$corpse->CanMobLoot(int character_id)
+$corpse->CastRezz(uint16 spell_id, [mob* caster = nullptr])
 $corpse->CompleteRezz()
 $corpse->CountItems()
 $corpse->Delete()
@@ -758,17 +758,17 @@ $corpse->GetGold()
 $corpse->GetOwnerName()
 $corpse->GetPlatinum()
 $corpse->GetSilver()
-$corpse->GetWornItem(equipSlot)
+$corpse->GetWornItem(equipslot)
 $corpse->IsEmpty()
 $corpse->IsLocked()
 $corpse->IsRezzed()
 $corpse->Lock()
 $corpse->RemoveCash()
-$corpse->RemoveItem(lootslot)
+$corpse->RemoveItem(uint16 loot_slot)
 $corpse->ResetLooter()
-$corpse->SetCash(in_copper, in_silver, in_gold, in_platinum)
-$corpse->SetDecayTimer(decaytime)
-$corpse->Summon(client, spell)
+$corpse->SetCash(uint16 copper, uint16 silver, uint16 gold, uint16 platinum)
+$corpse->SetDecayTimer(uint32 decay_time)
+$corpse->Summon(client* client, bool is_spell)
 $corpse->UnLock()
 ```