diff --git a/src/mod/languages/mod_perl/mod_perl.c b/src/mod/languages/mod_perl/mod_perl.c
index 4ceb47e4e8..d9db820322 100644
--- a/src/mod/languages/mod_perl/mod_perl.c
+++ b/src/mod/languages/mod_perl/mod_perl.c
@@ -339,6 +339,7 @@ SWITCH_STANDARD_API(perl_api_function)
 	po.stream = stream;
 	po.session = session;
 	perl_thread_run(NULL, &po);
+	return SWITCH_STATUS_SUCCESS;
 }
 
 static switch_xml_t perl_fetch(const char *section,