diff --git a/src/modules/perl/modperl_config.c b/src/modules/perl/modperl_config.c

index c4ef81f..4ec135c 100644

--- a/src/modules/perl/modperl_config.c

+++ b/src/modules/perl/modperl_config.c

@@ -186,7 +186,7 @@ modperl_config_srv_t *modperl_config_srv_new(apr_pool_t *p, server_rec *s)

     /* make sure httpd's argv[0] is the first argument so $0 is

      * correctly connected to the real thing */

-    modperl_config_srv_argv_push(s->process->argv[0]);

+    modperl_config_srv_argv_push(s->process->short_name);

     MP_TRACE_d(MP_FUNC, "new scfg: 0x%lx", (unsigned long)scfg);