diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 9ff54c73..df968c4e 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -985,8 +985,8 @@ EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
 bool CModPerl::OnLoad(const CString & sArgs, CString & sMessage)
 {
 	int iArgc = 5;
-	char *pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
-	PERL_SYS_INIT3( &iArgc, &pArgv, NULL );
+	const char * pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
+	PERL_SYS_INIT3( &iArgc, (char ***)&pArgv, &environ );
 	m_pPerl = perl_alloc();
 	perl_construct(m_pPerl);