diff --git a/zone/perl_doors.cpp b/zone/perl_doors.cpp
index 0fc8b3f68..b922b5091 100644
--- a/zone/perl_doors.cpp
+++ b/zone/perl_doors.cpp
@@ -59,7 +59,7 @@ XS(XS_Doors_GetDoorDBID); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetDoorDBID) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetDoorDBID(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetDoorDBID(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 RETVAL;
@@ -76,7 +76,7 @@ XS(XS_Doors_GetDoorID); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetDoorID) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetDoorID(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetDoorID(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 RETVAL;
@@ -93,7 +93,7 @@ XS(XS_Doors_GetID); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetID) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetID(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetID(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint16 RETVAL;
@@ -110,7 +110,7 @@ XS(XS_Doors_GetX); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetX) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetX(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetX(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		float RETVAL;
@@ -127,7 +127,7 @@ XS(XS_Doors_GetY); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetY) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetY(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetY(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		float RETVAL;
@@ -144,7 +144,7 @@ XS(XS_Doors_GetZ); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetZ) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetZ(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetZ(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		float RETVAL;
@@ -161,7 +161,7 @@ XS(XS_Doors_GetHeading); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetHeading) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetHeading(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetHeading(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		float RETVAL;
@@ -178,7 +178,7 @@ XS(XS_Doors_GetOpenType); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetOpenType) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetOpenType(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetOpenType(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 RETVAL;
@@ -195,7 +195,7 @@ XS(XS_Doors_GetLockpick); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetLockpick) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetLockpick(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetLockpick(THIS)"); // @categories Doors, Skills and Recipes
 	{
 		Doors *THIS;
 		uint32 RETVAL;
@@ -212,7 +212,7 @@ XS(XS_Doors_GetKeyItem); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetKeyItem) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetKeyItem(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetKeyItem(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 RETVAL;
@@ -229,7 +229,7 @@ XS(XS_Doors_GetNoKeyring); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetNoKeyring) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::GetNoKeyring(THIS, uint8 type)");
+		Perl_croak(aTHX_ "Usage: Doors::GetNoKeyring(THIS, uint8 type)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint8 type = (uint8) SvUV(ST(1));
@@ -243,7 +243,7 @@ XS(XS_Doors_GetIncline); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetIncline) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetIncline(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetIncline(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 RETVAL;
@@ -278,7 +278,7 @@ XS(XS_Doors_SetOpenType); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetOpenType) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetOpenType(THIS, uint32 open_type)");
+		Perl_croak(aTHX_ "Usage: Doors::SetOpenType(THIS, uint32 open_type)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 type = (uint32) SvUV(ST(1));
@@ -292,7 +292,7 @@ XS(XS_Doors_SetLockpick); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetLockpick) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetLockpick(THIS, uint32 lockpick_type)");
+		Perl_croak(aTHX_ "Usage: Doors::SetLockpick(THIS, uint32 lockpick_type)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 type = (uint32) SvUV(ST(1));
@@ -306,7 +306,7 @@ XS(XS_Doors_SetKeyItem); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetKeyItem) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetKeyItem(THIS, uint32 key_item_id)");
+		Perl_croak(aTHX_ "Usage: Doors::SetKeyItem(THIS, uint32 key_item_id)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 type = (uint32) SvUV(ST(1));
@@ -320,7 +320,7 @@ XS(XS_Doors_SetNoKeyring); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetNoKeyring) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetNoKeyring(THIS, uint8 no_key_ring)");
+		Perl_croak(aTHX_ "Usage: Doors::SetNoKeyring(THIS, uint8 no_key_ring)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint8 type = (uint8) SvUV(ST(1));
@@ -334,7 +334,7 @@ XS(XS_Doors_SetIncline); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetIncline) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetIncline(THIS, uint32 incline)");
+		Perl_croak(aTHX_ "Usage: Doors::SetIncline(THIS, uint32 incline)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 type = (uint32) SvUV(ST(1));
@@ -348,7 +348,7 @@ XS(XS_Doors_SetSize); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetSize) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetSize(THIS, uint32 size)");
+		Perl_croak(aTHX_ "Usage: Doors::SetSize(THIS, uint32 size)"); // @categories Doors
 	{
 		Doors *THIS;
 		uint32 type = (uint32) SvUV(ST(1));
@@ -362,7 +362,7 @@ XS(XS_Doors_SetLocation); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetLocation) {
 	dXSARGS;
 	if (items != 4)
-		Perl_croak(aTHX_ "Usage: Doors::SetLocation(THIS, float x, float y, float z)");
+		Perl_croak(aTHX_ "Usage: Doors::SetLocation(THIS, float x, float y, float z)"); // @categories Doors
 	{
 		Doors *THIS;
 		float x = (float) SvNV(ST(1));
@@ -378,7 +378,7 @@ XS(XS_Doors_SetX); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetX) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetX(THIS, float x)");
+		Perl_croak(aTHX_ "Usage: Doors::SetX(THIS, float x)"); // @categories Doors
 	{
 		Doors *THIS;
 		float x = (float) SvNV(ST(1));
@@ -394,7 +394,7 @@ XS(XS_Doors_SetY); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetY) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetY(THIS, float y)");
+		Perl_croak(aTHX_ "Usage: Doors::SetY(THIS, float y)"); // @categories Doors
 	{
 		Doors *THIS;
 		float y = (float) SvNV(ST(1));
@@ -410,7 +410,7 @@ XS(XS_Doors_SetZ); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetZ) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetZ(THIS, float z)");
+		Perl_croak(aTHX_ "Usage: Doors::SetZ(THIS, float z)"); // @categories Doors
 	{
 		Doors *THIS;
 		float z = (float) SvNV(ST(1));
@@ -426,7 +426,7 @@ XS(XS_Doors_SetHeading); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetHeading) {
 	dXSARGS;
 	if (items != 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetHeading(THIS, float heading)");
+		Perl_croak(aTHX_ "Usage: Doors::SetHeading(THIS, float heading)"); // @categories Doors
 	{
 		Doors *THIS;
 		float heading = (float) SvNV(ST(1));
@@ -442,7 +442,7 @@ XS(XS_Doors_SetModelName); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_SetModelName) {
 	dXSARGS;
 	if (items < 1 || items > 2)
-		Perl_croak(aTHX_ "Usage: Doors::SetModelName(THIS, string name)");
+		Perl_croak(aTHX_ "Usage: Doors::SetModelName(THIS, string name)"); // @categories Doors
 	{
 		Doors *THIS;
 		char  *name = nullptr;
@@ -457,7 +457,7 @@ XS(XS_Doors_GetModelName); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_GetModelName) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::GetModelName(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::GetModelName(THIS)"); // @categories Doors
 	{
 		Doors      *THIS;
 		Const_char *RETVAL;
@@ -475,7 +475,7 @@ XS(XS_Doors_CreateDatabaseEntry); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Doors_CreateDatabaseEntry) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Doors::InsertDoor(THIS)");
+		Perl_croak(aTHX_ "Usage: Doors::InsertDoor(THIS)"); // @categories Doors
 	{
 		Doors *THIS;
 		VALIDATE_THIS_IS_DOOR;