diff --git a/src/switch_channel.c b/src/switch_channel.c
index 9adb2a7d9f..421a1416a0 100644
--- a/src/switch_channel.c
+++ b/src/switch_channel.c
@@ -3544,6 +3544,9 @@ static void do_execute_on(switch_channel_t *channel, const char *variable)
 		}
 	}
 	
+	if (!strncasecmp(app, "perl", 4)) {
+		bg++;
+	}
 	
 	if (bg) {
 		switch_core_session_execute_application_async(channel->session, app, arg);