or download this
"INIT" blocks are run just before the Perl runtime begins execu
+tion, in
"first in, first out" (FIFO) order. For example, the code gener
+ators
documented in perlcc make use of "INIT" blocks to initialize an
+d
resolve pointers to XSUBs.