diff --git a/zone/embperl.cpp b/zone/embperl.cpp
index 9f05d8711..87d543cff 100644
--- a/zone/embperl.cpp
+++ b/zone/embperl.cpp
@@ -210,6 +210,7 @@ Embperl::~Embperl()
 		"	if(tied *STDERR) { untie(*STDERR); }"
 		,FALSE);
 #endif
+	perl_destruct(my_perl);
 	perl_free(my_perl);
 	PERL_SYS_TERM();
 	my_perl = NULL;