--- rxvt-unicode/src/keyboard.C	2005/11/28 19:35:04	1.17
+++ rxvt-unicode/src/keyboard.C	2006/01/02 21:17:01	1.18
@@ -5,6 +5,7 @@
 
 #include <cstring>
 
+#include "rxvtperl.h"
 #include "keyboard.h"
 #include "command.h"
 
@@ -74,6 +75,8 @@
 {
   if (strncmp (str, "command:", 8) == 0)
     rt->cmd_write ((unsigned char *)str + 8, strlen (str) - 8);
+  else if (strncmp (str, "perl:", 5) == 0)
+    PERL_INVOKE((rt, HOOK_KEYBOARD_COMMAND, DT_STRING, str + 5, DT_END));
   else
     rt->tt_write ((unsigned char *)str, strlen (str));
 }