Index: src/modules/perl/modperl_common_log.c
===================================================================
--- src/modules/perl/modperl_common_log.c	(revision 585898)
+++ src/modules/perl/modperl_common_log.c	(working copy)
@@ -49,7 +49,7 @@
     }
 
     if (func) {
-        apr_file_printf(logfile, "%s: ", func);
+        apr_file_printf(logfile, "%d: %s: ", getpid(), func);
     }
 
     va_start(args, fmt);