my $reg = \INIT();

##</code><code>##

       "INIT" blocks are run just before the Perl runtime begins execution, in
       "first in, first out" (FIFO) order. For example, the code generators
       documented in perlcc make use of "INIT" blocks to initialize and
       resolve pointers to XSUBs.