--- rxvt-unicode/src/main.C	2005/12/31 17:16:17	1.154
+++ rxvt-unicode/src/main.C	2006/01/02 15:35:43	1.155
@@ -32,6 +32,8 @@
 
 #include "../config.h"          /* NECESSARY */
 #include "rxvt.h"               /* NECESSARY */
+#include "keyboard.h"
+#include "rxvtperl.h"
 
 #include <limits>
 
@@ -46,10 +48,6 @@
 # include <termios.h>
 #endif
 
-#ifdef KEYSYM_RESOURCE
-# include "keyboard.h"
-#endif
-
 vector<rxvt_term *> rxvt_term::termlist;
 
 static char curlocale[128];
@@ -197,6 +195,8 @@
 
 rxvt_term::~rxvt_term ()
 {
+  PERL_INVOKE ((this, HOOK_DESTROY, DT_END));
+
   termlist.erase (find (termlist.begin (), termlist.end(), this));
 
   emergency_cleanup ();
@@ -475,6 +475,12 @@
     scrollBar.setIdle ();    /* set existence for size calculations */
 #endif
 
+#if ENABLE_PERL
+  rxvt_perl.init ();
+#endif
+
+  PERL_INVOKE ((this, HOOK_INIT, DT_END));
+
   create_windows (argc, argv);
 
   dDisp;
@@ -517,6 +523,8 @@
 
   check_ev.start ();
 
+  PERL_INVOKE ((this, HOOK_START, DT_END));
+
   return true;
 }