diff --git a/modules/modperl/functions.cpp b/modules/modperl/functions.cpp
index a7739666..9dfa2fe7 100644
--- a/modules/modperl/functions.cpp
+++ b/modules/modperl/functions.cpp
@@ -774,3 +774,16 @@ CModule::EModRet CPerlModule::OnTimerAutoJoin(CChan& Channel) {
 	return result;
 }
 
+bool CPerlModule::OnEmbeddedWebRequest(CWebSock& WebSock, const CString& sPageName, CTemplate& Tmpl) {
+	bool result = false;
+	PSTART_IDF(OnEmbeddedWebRequest);
+	mXPUSHi(static_cast<int>(false)); // Default value
+	PUSH_PTR(CWebSock*, &WebSock);
+	PUSH_STR(sPageName);
+	PUSH_PTR(CTemplate*, &Tmpl);
+	PCALLMOD(,
+		result = SvUV(ST(0));
+	);
+	return result;
+}
+
diff --git a/modules/modperl/functions.in b/modules/modperl/functions.in
index fbdb7e91..8d175983 100644
--- a/modules/modperl/functions.in
+++ b/modules/modperl/functions.in
@@ -62,4 +62,5 @@ EModRet OnTopic(CNick& Nick, CChan& Channel, CString& sTopic)
 bool OnServerCapAvailable(const CString& sCap)=false
 void OnServerCapResult(const CString& sCap, bool bSuccess)
 EModRet OnTimerAutoJoin(CChan& Channel)
+bool OnEmbeddedWebRequest(CWebSock& WebSock, const CString& sPageName, CTemplate& Tmpl)=false
 
diff --git a/modules/modperl/module.h b/modules/modperl/module.h
index c62c6afd..91119e46 100644
--- a/modules/modperl/module.h
+++ b/modules/modperl/module.h
@@ -84,7 +84,8 @@ public:
 	virtual EModRet OnTopic(CNick& Nick, CChan& Channel, CString& sTopic);
 	virtual bool OnServerCapAvailable(const CString& sCap);
 	virtual void OnServerCapResult(const CString& sCap, bool bSuccess);
-	virtual EModRet OnTimerAutoJoin(CChan& Channel);	
+	virtual EModRet OnTimerAutoJoin(CChan& Channel);
+	bool OnEmbeddedWebRequest(CWebSock&, const CString&, CTemplate&);
 };
 
 static inline CPerlModule* AsPerlModule(CModule* p) {