diff --git a/Lib/perl5/perl5.swg b/Lib/perl5/perl5.swg
index 6d35e8bc4..97ea720cf 100644
--- a/Lib/perl5/perl5.swg
+++ b/Lib/perl5/perl5.swg
@@ -9,6 +9,8 @@
 %runtime "perlrun.swg"        // Perl runtime functions
 %runtime "noembed.h"          // undefine Perl5 macros
 
+#define %perlcode  %insert("perl")
+
 /* Typemaps for input parameters */
 
 %typemap(in)  int, short, long, signed char, bool, enum SWIGTYPE